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Changes for the Mark VIII. Release (cont) 

10-28 Updated 4 SEARCH STATEMENT? : 

Added 0N_ FILE PART 

Deleted all other references to SEARCH PART 

Deleted CFILE MISSING PART> 

Deleted <FILE LOCKED PART> 

Added <0N FILE PART? 
10-31 Updated table: 

Added PROTECTION 

Added PR0TECTI0N_I0 
10-39 Updated C0MPILE_CARD_INF0 table 

Added USERCODE 

Added FILLER 

Added SESSION 

Changed CHARGE NUMBER CHARACTER from 6 to 7 

10-45 Updated MESSAGE__COUNT 

Deleted I {FILE IDENTIFIER? £< EXPRESSION?} 
Added ^SWITCH FILE IDENTIFIER? 



-Changes for the Mark 10.0 Release 

5-6 Added M <LEVEL NUMBER> STRUCTURE ELEMENT>" to 
<STRUCTURE ELEMENTS>. 

5-20 Added M <HOST_NAME PART>" to <FILE ATTRIBUTE> list. 

5-33 Added "<H0ST__NAME PART>" ATTRIBUTE. 

8-16 Added, "<B IN ARYJSEARCH DESIGN AT€-R>'\ 

"<DA£A tENGTH DES.IGNAT0R>'%. "<DATA_TYPE DESIGNATOR^' 
"<LAST~*LIO STATUS ;DESIGNAfOR> ,r ", & "<TIMER DESIGNATOR^' 
to "VALUE. GENERATING FUNCTIONS" list. " 

8-18 Added "BINARY SEARCH" description. 

8-22 Added "DATA LENGTH" & "DATA TYPE" descriptionsv 

8-28 Added "LAST LIO STATUS" description.. 

8-39 Added ''TIMER" description. 

9-2 Added " <0N BEHALF OF MODE>" to "OPEN ATTRIBUTED. " 
Added "<30N BEHALF OF MODE>" to OPEN STATEMENT. 

9-6 Added "<READ PART> <RESULT MAS K>; <ON SEQUENCE>" 
to "<READ STATEMENT^. " 
Added "<RESULT MASK> : ■:« WITH RESULT_MASK <ADDRESS 
GENERATORS" to • the READ , STATEMENT . 

9-7 Added "if the <RESULT MASK>. .." paragraph. ■.■ — 
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Changes for the Mark 10.0 Release (cont.) 
9-8 



9-9 
9-10 



Added "<WRITE PART> <RESULT MASK>; <0N SEQUENCES' 
to the WRITE STATEMENT . 

Added " <RESULT MASK> : := WITH RESULT_MASK 

<ADDRESS GENERATORS' to the WRITE STATEMENT., 



Added "If the <RESULT MASK>. .." paragraph. 

10-15 Added "OYNAMIC H0ST_NAME PARTS' and 

"OYNAMIC OPEN _0N_BEHALF_0F PART>" to 
<DYNAMIC FILE ATTRIBUTE> list. 

10-25 Added "OYNAMIC HOSTJJAME PART>" and 

"OYNAMIC 0PEN_0N_BEHALF_0F>" descriptions. 

10-36 Added "<REFER_ADDRESS DESIGNATORS', 
"<REFER_LENGTH DESIGNATORS" and 
"<REFER_TYPE DESIGNATORS' as FUNCTION DESIGNATORS 

10-47 Added "REFER ADDRESS" description. 

10-48 Added "REFER LENGTH" and "REFER TYPE" descriptions. 
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Changes to the Mark VIII. Release 

Changed title to B1800/B1700 SDL {BNF Version) 

1-2 Changed BNF statement <LDENTIFIER> : := 4IDENTIFIER> to 

<IDENTIFIER> ::=4ETTER> 
2-5 Replaced "/" with "I" 
3-1 Updated STRUCTURE OF AN SDL PROGRAM Section: 

Added URECORD STATEMENT> to ^DECLARATION STATEMENT> 
5-5 Replaced 3 NVS BIT(l) with 3 NSR BIT(l) in PL/I- STYLE 

STRUCTURE 
5-8 Updated NON-STRUCTURE DECLARATIONS BNF; 

Replaced ^DECLARED PART> with ...I ^DECLARED PART. I... 

in ^DECLARED ELEMENT> declaration. 
5-18 Updated REFERENCE DECLARATION: 

Replaced ^DECLARED REF> REFERENCE with ...t ^DECLARED 

REF> REFERENCE | . . . 
Updated REFERENCE RECORD DECLARATION: 

Replaced ^DECLARED RECORD REF> REFERENCE with 

...J ^DECLARED RECORD REF> REFERENCE |. . . 

in < DECLARE ELEMENT^ DECLARATION. 
5-19 Updated FILE DECLARATIONS: 

Added | ^PROTECTION PART> and | £PROTECTION_IO>PART to 

4FILE ATTRIBUTE> 
5-21 Updated Syntax 

Deleted |READER_PUNCH ^DEVICE 0PTI0N>from <DEVICE 

SPECIFIER> 

Added DATA_RECORDER_80 to /.DEVICE SPECIFIER> 
5-22 Updated Format 

Deleted READER_PUNCH 

Added DATA_REC0RDER_80 
5-25 Updated Default section of UNBLOCKED RECORD LENGTHS 
5-31 to 
5-32 Added Default status of ^PROTECTION PART > attribute and 

*PROTECTION_IQ_PART > 
6-2 Updated PROCEDURE HEAD: 

Added REFERENCE TO 4TYPE PART> 
7-1 Updated ASSIGNMENT STATEMENTS AND EXPRESSIONS: 

Deleted EXPRESSION from ASSIGNMENT STATEMENT 

Added EXPRESSION LIST to ASSIGNMENT STATEMENT 
8-12 Description of NULL rewritten 
9-12 ACCEPT STATEMENT section updated: 

Deleted <END-OF-TEXT SPECIFIER> 

Deleted paragraph pertaining to END-OE-TEXT 
10-28 Updated SEARCH DIRECTORY STATEMENT: 



"THE INFORMATION CONTAINED IN THIS DOCUMENT IS CONFIDENTIAL AND PROPRIETARY TO BURROUGHS 
CORPORATION AND IS NOT TO BE DISCLOSED TO ANYONE OUTSIDE OF BURROUGHS CORPORATION WITHOUT ,^~- 
THE PRIOR WRITTEN RELEASE FROM THE PATENT DIVISION OF BURROUGHS CORPORATION" A* V -' ! 



SB P 1968 8-7 6 



BURROUGHS CORPORATION 
COMPUTER SYSTEMS GROUP 
SANTA BARBARA PLANT 



eieco/Birco 



COMPANY 

SDL (BNF 
P 



TC-1 

CONFIDENTIAL 

Ver si on) ( F) 

,S. 2212 5405 



IABLE Of CONTENJS 

BACKUS NAUR FORM 1-1 

RELATED PU3LI C ATI Oft S 1-2 

8A5IC COMPONENTS OF THE SDL LANGUAGE 2-1 

COMMENTS 2-2 

NU*iJERS 2-5 

8IT STRINGS 2-3 

CHARACTER STRINGS .... 2"4 

CHAR_TA8LE 2-5 

OTHER CONSTANTS 2-5 

STRUCTURE OF AN SDL PROGRAM 3-1 

PROGRAM SEGMENTATION <*-l 

DECLARATIONS 5-1 

CATA TYPES 5-1 

DECLARE STATEMENT 5-2 

RECORD STATEMENT 5-3 

NON-STRUCTURE DECLARATIONS 5-8 

STRUCTURE DECLARATIONS 5-11 

PAGED ARRAY DECLARATIONS 5-15 

DYNAMIC DECLARATIONS 5-16 

Restrictions! 5-17 

REFERENCE DECLARATIONS ........... 5-18 

RECORD REFERENCE DECLARATIONS 5-19 

FILE DECLARATIONS 5-20 

SWITCH FILE DECLARATIONS 5-34 

DEFINE STATEMENT 5-36 

FORWARD DECLARATION 5-40 

USE STATEMENT ............. 5-43 

PROCEDURES 6"l 

PROCEDURE HEAD 6-2 

INTRINSIC HEAD 6-5 

PROCEDURE 30DY 6-6 

PROCEDURE ENDING 6-8 

ASSIGNMENT STATEMENTS AND EXPRESSIONS 7-1 

UNARY OPERATORS 7-5 

ARITHMETIC OPERATORS 7*5 

RELATIONAL OPERATORS 7-6 

LOCICAL OPERATORS 7-7 

REPLACE OPERATORS 7-8 

CONCATENATION .............. 7-11 

PRIMARY ELEMENTS OF THE EXPRESSION 8-1 

CONDITIONAL EXPRESSION .... 8-1 

CASE EXPRESSION 8"2 

BUMP . 8-2 

DECREMENT 8-4 

ASSIGNOR 8-4 

ADDRESS VARIABLES 8-5 

INDEXING 8-5 

ADDRESS GENERATING FUNCTIONS 6-8 



BURROUGHS CORPORATION 
COMPUTER SYSTEMS GROUP 
SANTA BARBARA PLANT 



B18Q0/Q17Q0 



TC-2 

COMPANY CONFIDENTIAL 

SDL C8NF Version) CF) 

P.S. 2212 5405 



SUB3IT AND SUBSTR 3-3 

FETCH_COMMUNlCATE_MSG_PTR 8-1C 

DESCRIPTORS . .~. .". . 8-10 

MAKE_DESC3IPTQR 8-11 

NEXT ITEM* PR£VI0U5_ITEM . . . 8-12 

NULL 8-12 

ADDRESS GENERATORS . . 8-13 

VALUE VARIABLES 8-14 

TYPED PROCEDURES 8-15 

A0DRES5 AND VALUE PARAMETERS 8-15 

VALUE GENERATING FUNCTIONS 8-16 

BAS£_REGISTER 8-17 

BINARY CONVERSION 3-18 

BINARY SEARCH 8-18 

COMMUNICATE WITH GISMG 8-19 

CUNSGL£_SWITCHES~* 8-19 

C0NTR0L_STACK_BIT3 8-19 

C0NTR0L_5TACK_TUP 8-19 

CONVERT . 8-2'" 

DATA_ADDRES5 g-22 

DAT4_LENGTH 8-22 

DATA_TY?E 8-?2 

DATE 8-22 

DECIMAL CONVERSION 3-23 

DELIMITED_TOKEN ........ 8-23 

DISPATCH 6-24 

OISPLAY_PASE 3-25 

DYNAMIC_M£M0RY_B*5E 8-25 

EVALUATION_STACK_TOP 8-25 

EXECUTE 3-25 

EXTENDED ARITHMETIC FINCTIONS 8-27 

HASH^COOE 8-27 

INTERRQG4TE_INT£RRUPT_STATUS 8-28 

LAST LIO_STATUS ~ 8-23 

LENGTH „ 3-28 

LIMIT_REGXSTER 8-26 

LOCATION 8-29 

NAME_QF_OAY 6-29 

NAME_STACK TOP . . . . . 8*3 i 

NEXT_TO^EN 8-30 

PARITf_ADDR£5S 8"3i 

PROCESSOR_TIM£ 3-31 

PROGRAM SWITCHES ...» 8-31 

SEARCH_LINKED_LIST 8-32 

SEARCH SOL STACKS ............. 8-33 

SEARCH_SERIAL LIST 8-34 

S_M£M_S1Z£* M_*EM_SIZE 8-35 

SORT SEARCH 3-35 

SORT_STEP DOWN . 8-35 

50RT_UN8L0CK 8-3t> 

SPO_INPUT_PR£SENT ... 8-36 

SUBBIT AND SU3STR 8-37 

SWAP 8-38 

TIME 8-3 9 



BURROUGHS CORPORATION 
COMPUTER SYSTEMS GROUP 
SANTA BARBARA PLANT 



813C0/317C0 



COMPANY 

SOL (RNF 

P 



TC-3 
CONFIDENTIAL 
Ver si on) (F) 

■ S. 2212 5405 



TIMER . . 8-39 

VALUE.DESCRIPTOR 8-40 

WAIT . , 8"4u 

I/O CCNTRDL STATEMENTS 9-1 

CPEN STATEMENT 9-2 

CLOSE STATEMENT 9-4 

READ STATEMENT 9-6 

WRITE STATEMENT 9-8 

SEEK STATEMENT « 9-11 

ACCEPT STATEMENT 9-12 

DISPLAY STATEMENT 9-13 

SPACE STATEMENT 9-14 

SKIP STATEMENT .............. 9-15 

ON SEQUENCE 9-16 

EXECUTABLE ST«TEj4EHT5 10"l 

CO GROUPS . 10-2 

UNDO ............ 10-4 

IF STATEMENT 10-5 

CASE STATEMENT 10"7 

REFER STATEMENT 10-8 

REDUCE STATEMENT 10 "9 

£N0 OF STRING 1C-11 

MODIFY STATEMENTS (CLEAR, BUMP, OECREMENT) 10-12 

NULL STATEMENT 10-13 

FILE ATTRIBUTE STATEMENT (CHANGE STATEMENT) .... 10-14 

STOP STATEMENT 10-26 

ZIP STATEMENT ........ 10-27 

SEARCH DIRECTORY STATEMENT 10-28 

PEAD.FILE.HEAOERf W3 I TE_FILE_HE AD £R ........ 10-30 

MAKEJ*EA[T0NLY> MAKE_R E4 D_HR I TE 10-32 

COROUTINE STATEMENT .... 10-33 

EXECUTE-PROCEDURE STATEMENT 10-35 

EXE CUTE- FUNCTION STATEMENT 10-36 

ACCESS_FILE_INF0rtMATI0N 10-3 7 

CHANGE STACK SIZES 10-37 

CHARACTERS" ILL 10-38 

COMMUNICATE 10-38 

C0MPILE_C4R0_INF0 10-38 

DC INITIATE 10 10-39 

JESLANK 10- AG 

DISABL£_INTERRUPTS 10-43 

DU(*P 10-40 

OUMP_FOR_AMALYSIS . . 19-41 

ENAELE. INTERRUPTS 10-41 

ERRCH_C0MMUNIC4TE I0~4l 

EXECUTE 10-42 

FETCH 10-42 

FREEZE_PRQGRAM 10-43 

GROW 10- A 5 

HALT 10-4<» 

HARCWAHE.MQNITOR 10-4A 

INITIALIZE VECTOR 10-44 

HESSAGE_COUNT 10-45 

MCNITOK 10-A5 



3URR0UGHS CORPORATION 
COMPUTER SYSTEMS GROUP 
SANTA tfAKBARA PLANT 



B18C0/317CO 



TC-4 

COMPANY CONFIDENTIAL 

SOL (BNF Version) CF) 

P.S. 2212 5405 



APPE NCIX 
APPENDIX 
APPENCIX 
APPE NCIX 
APPENDIX 
APPE NCIX 
APPE NCIX 
APPE NCIX 



UVERLAY • 10-45 

R£AC_CASSETTE 10-46 

READ FP8* WRITE FPO 10-46 

READ_OV£RLAY* MR I TE_0 VERL Ay 10-47 

REFER AODRESS ' 10-47 

REFER LENGTH 10-43 

REFER TYPE 10-48 

REINSTATE 10-46 

RESTORE 10-49 

REVERSE_STORE 10-49 

SAVE 10-50 

SAVE^STATE 10-50 

SORT 10-50 

SCRT.MERGE 10-51 

SOKT.SWAP . . . . 10-52 

THAW PROGRAM 10-52 

THREAD_VECTOR 10-52 

TRACE 10-53 

TRANSLATE ........... 10-54 

I: RESERVED AMD SPECIAL WORDS 11-1 

II: SOL CONTROL CARD OPTIONS 12-1 

III: PROGRAfMItfG OPTIMIZATION 13-1 

IV: RUNNING THE COMPILER 14-1 

V: CONDITIONAL COMPILATION 15-1 

VI: SOL PROGRAMMING TECHNIQUES 16-1 

VII: SDL PARTIAL R ECQJ1PIL ATI ON FACILITY 17-1 

VIII: SOL MONITORING FACILITY 18-1 



BURROUGHS CQrtPQrtATION 

cohPUTee systems ghoup 

SANTA BAH3ARA PLANT 



31800/SirOO 



COMPANY 
SOL C3NF 

P 



1-i 

CONFIDENTIAL 
Versi on) (F) 
5. 2212 5*»05 



BACKIJi NAUR FORM 



A language used to talk about a language is a metalanguage. The 
natural languages are* in fact* metalanguages; for example* the 
metalanguage English is used to talk about the structure of an 
English language sentence. Backus Naur Form (BNF)* a 
metalanguage popularized by its use to' describe the syntax of 
Algol 60 is used to describe the syntax of SDL. To avoid the 
confusion between the symbols of the metalanguage and those of 
the language being described* 8MF uses only A metalinguistic 
symbols* Literal occurrences of symbols other than the the 
metasymboU' with no bracketing characters* represent themselves 
as terminal symbols of the language. 

A grammar for SOL is written as a set of 3NF statements* each of 
which has a left part* followed by the metasymfcol w : : = w followed 
by a list of right parts. The left part is a phrase name* and 

the right parts* separated by the metasyrcbal w l"* are strings 
containing terminal symools and /or phrase names. 



HETASYM8UL 



ENGLISH EQUIVALENT 



USE 



is def i ned as 



separates a phrase name from 
its de f i ni t ion . 



or 



<IDENTIFIEK> "IDENTIFIER" 



separates alternate aefinition 
of a phr ase. 

The bracketing characters indi 
cate that the intervening char 
acters are to be treated as a 
unit* i.e.* as a phrase name. 



Each BNF statement is a rewriting rule* such that we may 
substitute any right part for any occurrence of its associated 
left part? and we haye a choice of right parts which we may 
substitute. The following example specifies the use of these 
rulas to determine those strings which are grammatically correct 
identifiers in SOL. 



<LET TEK> 



Al BICIllEfFlGIH! IIJIKILfH 
I N 1 I P ! D 1 R I S ! T I U ! tf I W I X I r J Z 
lalblcldtelflglhliljlkllln 
Intolplqlrfsltlulvlwlxlylz 
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<LETTER> 
J ■<IDENTIF IER> 
I <IOENriFIER> 
I <IOENTIFIER> 



<LETTER> 

<OIGIT> 

<BREAK> 
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0III213I415I6I7I8I9 



XYZ12_84 is a proper SOL <IDENTIFIER> since it can be generated 
as a terminating set of symbols by using the 9NF rules. 



Proof that XYZ12 - 84 is an <IDENTIFIER> by 
that an < IOEfU I FIER> can be a <LETTER>. 



FORM 



<I0ENTIF IER> 
<IOEi\'TIFIER> 
<IOENTIFI£R> 
<IO£iMTIFIER> 
<IOENTIFI£R> 
<IDENriF IER> 
<ID£NTIF IER> 
<IDENTIFIER> 



<LETTER> 
<IDENTIFIER><LETTER> 

< IOE,MTIFIER><L£TTER> 

< roENTIFIERxOIGI T> 
<IDE?mTIFIER><OIGIT> 
<IDENTIFI£flxSRE4K> 

c IOENTIFIER><LETTER> 
<I0ENTIFIERX0IGIT> 



starting with the fact 



EXAMPLE 



X 

XY 

XYZ 

XYZ1 

XYZ12 

XYZ12 

XYZ12_8 

XrZ12 34 



Notice that the BNF rules do not* in any way* limit the number of 

letters* digits* and dots which comprise the < IDENTIFIERS In 

such cases* further semantic rules will be specified; e.g.* an 
SOL <ID£NTIFIER> is limited to a maximum of 63 characters. 
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SiSIC C.QMPQNENTS OF THE SDl, LANGUAGE 



In order to understand SOL grammar* the usar should be familiar 
with the most basic elements of the Software Developmental 
Lang uage below. 



<CIGIT> ::= 
<L£TT£R> :: 



I 1 I 2 S 31415161^1319 



A 
I K 
\ U 1 
! e 
I o 

i y 
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<SPiCIAL CHARACTER> ::= 



& I . I < 1 ; I * I / I /= I 
|$|:!>1>= 1=1+1*1 
\ i 1 ) I - I <- I C I 3 I <8LANK> 



<8REAK> :: = 
<6LA NK> : : = 



NOTE: <3L4MK> is 
character *• 



the occurrence 



of 



on e 



non-vi s ib I e 



IDENTIFIES: 



< IDENTIFIED 



<LETTER> I <IDENTIFIER> <LETTER> 
1 <IDENTIFIER> <DIGIT> 
1 <IOENTIFIER> <3REAK> 



RESTRICTIONS: 



1* An identifier may not contain blanks. 

2. An identifier may contain a maximum of 6i characters. 

3. Reserved words may not be used as identifiers. 

A. "Special" words may be used for segment and QQ-group 
identifiers without losing their special significance 
in SOL. 
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5 - In all other cases* "special" words may be used as 
identifiers* however* they lose their special 
significance throughout the entire program when 
declared at Lexic Level 0. When declared at any 
greater lexic level* they only lose their special 
meaning within the procedure in which they are 
dec lared. 

(Also see "Structure of an SDL Program" and "Appendix 

I") 



All reserved and special words must be in 
case. 



al I upper 



7. Identifiers must contain exactly the same letters* 
where upper and lower case are concerned* to be 
identical. If an upper-case identifier* for examole* 
is entered in lower case* it is a new identifier. 



COMMENTS 



CCOHKEM STRINO 



/* <C0MMENT TEXT> */ 



RESTRICTIONS: 



1. The pair /* preceding the <CQMHENT T£XT> must appear 
as adjacent symbols. Similarity* the pair */ 
following the <C0M«1ENT TEXT> must also appear as 
adjacent sympots. 



'€ COMMENT TEXT> 



<EMPTr> 
1 <C0MMENT TEXT CHARACTER> 
I CCOMMENT TEXT CHARACTER> 

<CD<WENT TEXT> 



<EMPTY> 



Mote: <EMPTY> is the null set or the occurrence of nothing. 



<C0MH£NT TEXT 
CHARACTER :: = 



<0IGIT> 

1 <LETTER> 

I <SPECIAL CHARACTER 

I w I 3 I * I % 



cCARD TEHMINAT0R> 



BURROUGHS CORPORATION 
COMPUTER SYSTEMS GROUP 
SANTA BARBARA PLANT 



2-3 

COMPANY CONFIDENTIAL 

81800/81700 SOL CBNF Version) (F) 

P.S. 2212 5405 



RESTRICTION: 



A % is treated as any other string character if 
it is contained within a CHARACTER STftINO or in 
^COMMENT TEXT>. However* in all other cases* a % 
will cause the scanning of the current source 
image to terminate and to continue in the next 
source image. 



NUMBERS 



<NUM8ER> : 
NOTE: 



<0 1GIT> I <NUH8ER> <0IGIT> 

3ange of signed numbers -(2 exp 23) to (2 exp 23)~1 
Range of unsigned numbers to C2 exp 24)-l. 



HIT STRINGS 



<6IN ARY 0IGIT> :: 

OlNARY DIGIT S> : 

cQUARTAL DIGIT> J 
<0UARTAL 0IGITS> 

<0CTAL DIGIT> ::^ 
<0CTAL DIGITS> : 

<HEX DIGIT> ::= 
<HEX DIGITS> ::= 

<EIT GR0UP>::= 



<8IT5>: : = 



111 «C0HM£NT STRING> 

OINARY DIGIT> 
1 BINARY DIGITS> <BINARY DIGIT> 

<8INARY DIGIT> 12 13 

<QUARTAL DIGIT> 
1 <QUARTAL DIGITS> <QUARTAL DIGIT> 

<JUARTAL 0IGIT> I k I 5 I 6 \ 7 

<0CTAL DIGIT> 
I <iJCTAL 0IGITS> OCTAL DIGIT> 

<0CTAL DIGIT> 
I8I9I Al 3ICI0IEIF 

<HEX DIGIT> 
1 <H£X DIGITS> <HEX DIGIT> 

(<♦ ) <HEX DIGITS> 

1 C3) <0CT4L DIGITS> 

I (2 ) <QUARTAL 0IGITS> 

f (1) OINARY DIGITS> 

<BIT GR0UP> 1 <HEX 0IGITS> 
I <0IT3> <BIT GRGUP> 
\ <EMPTY> 



<taIT STRING> 



3<3ITS>a 
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If no bit mode is specified <i.e.* The indicator 
digit in parentheses is omitted)* "Hex* is assumed. 
This can only be assumed if the bit string does not 
start with a mode indicator? when the mode is 
switched to "Hex"* an explicit "(4)" is required. 

As noted above* a <C0MHE?JT STRING> may appear 
anywhere within a <BIT STRING>* but not within the 
parentheses bounding the indicator digit. The 
presence of a <C0MMENT STRING> will* in no way* alter 
the value of the <3 I T 5TRING> containing it. Qlanks 
may not appear in a <3IT STRING>. 



E xampl e ' 

<3t3)63303l&260/* THIS */313230/* IS */63302560/» 

4321626360/* LAST * /51 2523465 12 A/* RECORD * /3 



THE */ 



<ST RING> 



<CHARACfER STRING> 
I <3IT STflING> 



CHARACTER STRINGS 



<CHARACTER STRING> ::= 
<STRING CHARACTER LIST> 

<STRING CHARACTER> ::= 



"<STRING CHARACTER LIST>" 

<EMPFY> 
I <STRING CHARACTER LIST> 
<STRING CHARACTER> 

<0IGIT> i <LETTER> t <SPECIAL CHARACTER> 
i n " \ 3 I * i % 



RESTRICTIONS: 



If a quote sign is desired in a character 
string* then two adjacent quote signs must 
appear in the text. 
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EXAtfPLE: DECLARE STRING CHARACTER (6)- 

QUOTE CHARACTER (1); 



STRING 
QUOTE 



"AB^CDE"; 

wnttn * 



After execution* STRING will contain: A3 W CDE- 
and QUOTE wilt contain: ". 

Note: A ^CHARACTER 5TRING> may contain a maximum of 
256 ch ar act ers. 



CHAR TA9LE 



The translation bit table for the set-membership reduction is 
rattier cumbersome to construct by hand* so the compiler provides 
a convenient notation for table constructs. These constants are 

writ ten: 



<TA3LE 
<TA8LE 



CONSTANTS 
STRING > : 



CHARITABLE C <TABLE STRING> ) 

<STRING> I <TA8LE STPIMG> CAT <STRING> 



The constant denoted is a 256-bit string with 3 ( i ) 1 3 

corresponding to every character in <TA8LE STRING>. (When a <3IT 
STRING> occurs in the <TABLE STRING>- it is used to denote 

non-graphic characters in their hexidecimal (EBCDIC) form.) 



OTHER CONSTANTS 



<C0N5TANT> :: = 



<MUNBER> I <STRING> 
I SEQUENCE NUMBER 
I HEX_SEQUENCE_NUMBER 
1 <TABLE C0NSTANT> 



I TOOAfS BATE 



T00AYS__0AT£ represents the date and time of 
com Dilation of the program. It is the same as the 
date and time appearing at the top of the program 
listing. It is a character string with the following 
format -- 



MH/DO/Yr HH:MM" 



SEflUENCE_NUM3ER represents a CHARACTER STRING> of £ 
characters which is the sequence number of the 
current source image being compiled* 



BURROUGHS CORPORATION 
COMPUTER SYSTEMS GROUP 
SANTA BARBARA PLANT 



31800/31700 



COMPANY 

SDL C3NF 

P 



2-6 
CONFIDENTIAL 
Versi on) (F ) 
S. 2212 5^05 



HEX_SEQUENCE_NUM8EH represents a bit string of S 
Chex) digits which is the sequence nuaiber of the 
current source image line being compiled. If this 
sequence field is blank* then HEX_SEQUENCE NUH3ER = 

a ooooooo') a 



If the current 
12753000* then 



source image line 
on this lines 



sequence number is 



SEflUENCE_NUM8ER = f, i2753000 ,, 
HEX_S£GUENCE NUMBER = 3127530003 
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SIRUCTURE OF AN SQL PROGRAM 



<PROGRAM> ::= 



DECLARATION STATEMENT 
LIST> :: = 



DECLARATION STATErtENT> 



{PROCEDURE STATEMENT 
LIST> :: = 



<PRQCEDURE STATEtfENT> 



<EXECUTA8LE STATEMENT 
LIST> :: = 



<EXECUTA8LE STATEMENT 



DECLARATION STATEMENT LIST> 
<PROC£DURE STATEMENT LIST> 
EXECUTABLE STATEMENT LIST> 
FINI 



<EMPTY> 

OECLARATION STAT£M£NT> 

DECLARATION STATEMENT LIST> 

<OECLARE STATEMENTS 
<D£FIN£ STATEMENTS 
<F[LE DECLARATION STATEMENTS 
<SHITCH FILE OECLARATICN 
STATEMENTS 

cFORWARD DECLARATION>; 
<USE STATEMENTS 
<SEGMENT STATEMENTS- 
DECLARATION STATEMENT>; 
<RECOR0 STATEMENTS 



<£MPTY> 
J PROCEDURE 
<PROCEOURE 



STATEMENTS 
STATEMENT LIST> 



PROCEDURE D£FINITION> 
1 <SEGMENT STATEMENT> 
<PRQCEOURE STATEMENT 



<£MPT Y> 

<EXECUTA8LE 

<EXECUTABLE 



STATEHENT> 
STATEMENT LIST> 



See SECTION 10. 



a program written in SOL must follow the sequential structure 
described in the syntax above. That is* the executable section 
of the program may not appear until all procedures have been 
defined* and procedures may not be defined before the formats of 
data items (variables* arrays* etc-) have been declared. "FINI" 
is not required* but if present must physically occur as the 
final statement in the program. 
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The procedure statement (including declaration* procedure* and 
executable statements) is the basic structure in SDL- An SOL 
program is a collection of procedures* each of which can be 
described for conceptual purposes as a microcosm of the program. 
Any given procedure may contain a collection of other procedures 
within itself. This process is known as "Nesting". 



The "Lexicographic Level"* of any statement in the program is 
equal to the number of procedures in which it is nested. The 
program itself will always be Lexic Level Q* and no procedure may 
have a lexic level greater than 15. The diagram in Figure I 
illustrates procedure nesting and lexic levels. 

It is important to understand the relationships between these 
nested procedures. As Figure 1. indicates* the name of any 
given procedure is contained in the procedure in which it is 
nested at the next lower lexic level. For example* procedure 
is a Lexic Level 2 procedure* however* its name* "0"* is part of 
Lexic Level 1 • 



The "scope" of any given procedure is recursively defined as: 

1) The procedure itself* 

2) Any procedureCs) nested within the procedure* 

3) Any procedure (and its nested procedures) whose name 
appears at the same lexic level and within the same 
procedure as its own name* and 

A) The procedure in wnich its own naire is defined* 



In Figure I* one can see that the scope of Procedure B includes: 

1) Itself* i.e.* Procedure B 

2) The nested procedures within 8 (C and 0)* 

3) T<ne other procedures defined at LLC: E Cand its 
nested procedures F and G) and procedure H (and its 
nested procedures J* K* L* M* H* and P. 

A) The procedure which defines 8* in this case* the 
program A . 

Note: All the Lexic Level procedures have scope to each 
other. This occurs because of rule A above* wherein 
the program itself is thought to be a "procedure". 
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In the same 
N* P* and H« 



manner* the scope of procedure J includes J* K* L* M* 



By understanding the relationships between the various 
procedures* it is possible to determine which procedures may be 
invoked fay any given procedure. SDL has been defined so that any 
procedure X may call or invoke any procedure f* if the scope of r 
encompasses X. 



In F igure I * 
because each 



Procedure J may call procedures J*K*L* M*H*£ 
of these contains J in its scope. 



an d 8 



Note: J cannot call the program A since the name of the 
proqraa* if there is one* exists outside the program 
and is* therefore* not compiled.* however* J may 
access the data contained in A (i.e.* 41* A2» A3* and 
AA). 



Figure 2 below shows the relationship between scope 
ability for program 4. 



and calling 
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PROGRAM A 

DECLARE A 1, 4 2, A3, 44; 

PROCEDURE 3; 

DECLARE Bl, B2, 83; 
PROCEDURE C; 

DECLARE CI* C2, C3; 
EXECUTABLE STATEMENTS; 

end c; 

PROCEDURE O; 

EXECUTABLE STATEMENTS; 
END d; 

EXECUTABLE STATEMENTS; 
ENO 3; 
PROCEDURE E? 

DECLARE £1, E2? 
PROCEDURE F; 

DECLARE Fl, F2, F3; 

EXECUTABLE STATEMENTS; 
END f; 
PROCEDURE G; 

DECLARE Gl, G2; 

EXECUTABLE STATEMENTS; 
END g; 

EXECUTABLE STATEMENTS; 
END e; 
PROCEDURE H; 

DECLARE HI, H2* H3, H4? 
PROCEDURE J; 

PROCEDURE K; 

END k; 

PROCEDURE L? 

ENO l; 
end; 
procedure m; 

procedure n; 

ENO n; 

procedure p; 

end p; 
eno m; 
end a; 
executable statements; 

F INI 



Fig !• Procedure Nesting 
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Note: To find the scope of a procedure* find the procedure 
in the column of procedure names. The horizontal 
rows to the right indicate the procedures in its 
scope. The procedures which may be called by a given 
procedure are .narked in the vertical columns below 
that calling procedure. 



Fig 2. Scope and Calling Ability 
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PPQMJM SEQMENTAT1QN 



STATE«ENT> ::= <SEGMENT STATEMENT WORD> (<5£GMENT PART>); 

STATEMENT HORO> ::= SEGHENT I SEGMENT_PAGE 

PART> ::= <SEGMENT IDENTIFIED <PAG£ PART> IMPORTANT PART> 
<SEGMENT IDENTIFIED <IHPQRTANT PART> <PAGE PART> 

I0ENTIFIER> ::= <I DENT IF IER> 
<PAGE PART> : :^ <EMPTY> I OF <P AGE ID£NTIFIER> 
<PAGE IDENTIFIER> :: = <I0ENTIFIER> 
<IMPORTANT PART> ::= <EMPTt> t * IMPORTANT 



< SEGMENT 
<SEGMENT 
<SEG«ENT 

<SEGMENT 



As the 3NF indicates* the <SEGMENT STATEMENT may occur anywhere 
within an SOL program. Its purpose is to reduce the memory 

requirement of the program by allowing segments to overlay each 
othe r. 



There is a maximum of 16 pages with 64 segments per page, 
segment names represent a page-number segment -number pair. 



The 



It is only necessary to specify SEGMENT_P4GE once for each page. 
Every subsequent segment will be compiled to that page until 
another SEGMENT PAGE is encountered. 



If there are no SEGM£NT_PAGE specifications* all segments will be 
compiled to Page Zero* and there may be no more than 64 segments 
total. If a program is to be segmented* the first statement must 
D e a <SEGMENT STATEMENTS 
appear in the source listing. 



Otherwise a warning message will 



There are two types of segmentation: "permanent" and 
"temporary". Every statement following a permanent <SEGMENT 
STATEMENT> will be compiled to that segment until another 
<SEGMENT STATEMENT> is read. Non-consecutive statements may be 
compiled to the same segment by using the same <SEGM£NT 
IDENTIFIERS Mote* however* that <Q0 GROUPS CSee "DO GROUPS") 
and procedures must end in the same segment in which they begin. 
If this is not the case* the compiler issues a warning and 
inserts code to bring the program back to the proper segment so 
that the do-group or procedure may be exited correctly. 



The following example illustrates the use of the "permanent 

<SEGMENT STATEMENT:*-. 
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SEGMENT (XX); 

DECLARE Alt A2, A3, A4? 

PROCEDURE a; 

DECLARE 31, 82, 83; 
SEGMENT (YY)? 
PROCEDURE C; 



END c; 
PROCEDURE 



END d; 
SEGMENT (XX); 



end a; 



FINI 



Only procedures C and D have been compiled to the segment 
Segment "XX" is segment zero and includes everything else- 



YY 



A <SEGM£NT STATEMENT> is treated as "temporary" only when it 
precedes a "Subordinate Executable Statement" within any of the 
following statements: 



<ACCESS FILE HEADER STATEMENT 
<CASE STATEMENT 
<IF 5TATEHEiNT> 
<READ STATEMENT 
DECEIVE STATEMENT> 



<SEARCH DIRECTORY. 
<SEND STATEMENT> 
<5PACE 5TATEH£NT> 
<WRITE STAT£MENT> 
<0PEN STATEMENT 



STATEMENT> 



In these specific cases, the segment change applies only to the 
subordinate statement following it. For example, the syntax for 
the <IF STATEMENT> could be written as follows: 



<IF STATE«ENT> :: = 



IF <EXPRE5SI0N> 
THEM ^SUBORDINATE 
IF <EXPRE5SI0N> 
THEN SUBORDINATE 
ELSE SUBORDINATE 



EXECUTABLE STATEMENT> 



EXECUTABLE 
EXECUTABLE 



STATE ME NT> 
STATEMENT> 
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The segmentation of a hypothetical <IF STATEMENT* is presented 
below to illustrate the use of a "temporary" <SEGMENT STATEMENT*-. 

SEGMENT (A)? 
PROCEDURE X? 



IF Y>Z THEN r:=Z; ELSE 

segment (b); 

00 sqme_function; * 

* 
* 

* 



END SOME FUNCTION; 



end x; 



* Compiled to Sejment C3) 



8ec3use the <DQ GR0UP># "SO ME_FUNC TI0N"* is a subordinate 
<EXECUTA3LE STATEMENT* in the <IF STATEMENT** Segment (3) 
automatically ends when the <D0 GR0UP> is terminated. All 
statements following are compiled to Segment CA). 



Notice the distinction between Segment (A)* a "permanent" 
<SEGM£NT STATEMENTS and Segment (B)» a "temporary" one. 

If the construct ^IMPORTANT appears in the IMPORTANT PART> of a 
segment statement* then the SOL/UPL compiler will set the decay 
factor for that segment to seven. If the control option word 
SIZE is used» a list of segment names* numbers and sizes will be 
printed at the end of the source listing. The segments that have 
been marked ^IMPORTANT will be noted. 



EXAMPLES: 



SEGMENT (SEGZERO p IMPORTANT) ; 

SEGMENT PAGE (SEGONE OF PAGEZERQ * IMPORTANT); 

SEGMENT (SEGTWO * IMPORTANT OF PAGEONE); 
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PRAGMATICS 



The decay factor field in the segment dictionary is three bits 
long. It will always have a value of zero or seven. Whatever 
value the compiler puts in the code file* the MCP changes it. So 
when reading a memory dump* a value of zero means that the memory 
priority will decay more slowly. But when locking at code files* 
a value of seven means that the memory priority will decay more 
s low ly • 
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DECLARATIONS 



OATA TYPES 



Three main types of data may be declared in SDL 

1) SIT 

2) CHARACTER 

3) FIXED 



A bit field consists of a number of bits specified by a number 
parentheses following the reserved word "BIT". The field may 
a maximum of 65*5 35 bits. 



l n 

be 



A character field is a number of characters* 8 tits each* 
specified by a number in parentheses following the reserved word 
"CHARACTER". The field may be a maximum of 6*191 characters. 

A fixed data field is a 24-bit* signed numeric field where the 
high order bit is interpreted as the sign. Negative numbers are 
represented in 2- s complement form. 



The range of signed numbers (i.e.* fixed data fields) i s -C 2 exp 
23) to (2 exp 23)-l. The range of unsigned numbers (bit data 

fielas) is to C2 exp ?4)-l. Bit fields* as noted above* are 

not restricted to 24 bits. However* for arithmetic purposes* 
only the low-order 24 bits will be considered except in the case 
of the extended arithmetic function. 
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<CECLARE STATEMENT> 



DECLARE CQECLARE ELEMENT> 
! <DECLAR£ STATEMENTS <OECLARE ELEHENT> 



<CECLARE ELEMENT> : := 



<OECLAREO PART> 

<TYPE PART> 

STRUCTURE LEVEL NUHBER> 

<ST;"UJCTURE DECLARED PART> 

STRUCTURE TYPE PART> 

PAGEO cELEMENTS-PER-PAGE PART> 

<ARRAY ID£N?IFI£R> <ARRAY 30UN0> 

<TYPE PART> 

DYNAMIC ^COMPLEX OYNAMIC> 

<OYNAMIC TYPE PART> 

<OECLARED REF> REFERENCE 

OECLARED RECORD R£F> REFERENCE 



fhe <OECLARE STATEMENT> specifies the addresses 
characteristics of contents of memory storage areas. 



an d 



Any number of <DECLAR£ EL£NENT>s may be declared in one <QECLAR£ 
STATEMENTS and must be separated by commas. Best code is 
generated if all elements are declared within one <DECLARE 
3TATEHENT>. (See Appendix VI). 

The maximum number of data elements (including fillers* dummys* 
and implicit fillers) contained in one structure varies as to the 
compiler being used* (currently: 50 - small version* 75 - large 
version). Any attempt to declare more will cause a table 
overflow error to be detected at compile time. 

An array may have a maximum of 65*535 elements* each being a 
maximum of 65,535 Dits (8*191 characters). 



The five types of <DECLARE ELEHENT>s are each discussed below. 
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<RECOKO STATEMENT> ::= 

<RECOKD IDENTIFIER> ::= 
<FIELD LIST> : : = 

<COSPATI AL FIELD LIST> : 

<FIELO ELEM£NT> : : = 

<5IMPLE FIELO £LEMENT> : 

<CO.MPLEX FIELD ELEMENT> 

<SIMPLE IOENTIFIER> ::= 
<ARR4Y ICENTIFIER> : :- 
<ARRAY 80UM0> ::= 
<FIELO TYPE> : : = 



<F IELD SIZE> : : = 



RECORD <RECORO IDENTIFIER> 
<FIELO LIST> 

<IDENTIFIER> 

<FIELD ELEMENT> 1 

<FI£LD LIST>* <FIELD ELEMENT> 

I CCCQSPATIAL FIELD LIST>3 

1 <FIELO LIST>* C<C05PATIAL FIELD LIST>I 

<FIELD ELEMENT> 
I <COSPATIAL FIELD LIST>* <FIELD ELEHENT> 

<SIMPL£ FIELO £LEf£NT> 
I <COMPLEX FIELO EL£MENT> 

<SIMPLE IOENTIFIER> <FZELO TYPE> 
I FILLER <FIELD TYPE> 

<ARRAY IDENTIFIER> <ARRAY 30UND> 
<FIELO TYPE> 

<IDENTIFIER> 

<IDENTIFIER> 

< (CONSTANT EXPRESSIONS) 

FIXED 
I BIT <FIELO SI2E> 
I CHARACTER <FIELD SIZ£> 
I <RECORD IDENTIFIED 

(<C0NST4NT EXPRESSION) 



DATA STRUCTURING 



A new mechanism called Record is intended to eventually replace 
the PL/I-style structures currently being used in SDL. For 
compatibility* of course* no current features will be removed 
until they have fallen into disuse* Although records are used 
for the same purpose as the current structures* they are 
different in declaration* reference* and run-time effect. They 
are designed to provide the following benefits: 

1. Since fields of records are not represented by 
descriptors at run-time* they do not cause large name 
stacks. This removes the r.eed for USE declarations and 
elaborate SUBBITting schemes which have been used in the 
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past* 

2. Paged arrays may be structured using records, 

3. Arrays may occur nested in structural levels. 

4. Accessing of linked data structures is safer* simpler* 
and often faster. 

5. The substructure is specified in one place* but may be 
invoked in many places to declare variable or specify 
substructure of other records* thus reducing the 
probability of error. 

6. The syntax encourages the treatment of data structures as 
new types* hopefully imposing better structure on 
programs. 



A record is an addressing template analogous to a structure 
declared REMAPS BASE in the current language. Declaration of a 
record causes no data space to be allocated* it only establishes 
an addressing schema in the scope of the declaration. An example 
of a record declaration is: 



RECORD 



TYPEFIELD 
NV 
NSR 
DATATYPE 



0IT(D* 
8ITU)* 
BIT(S)? 



RECORD 



DESCRIPTOR 

TrPE 

LEN 

£ AODR 

VAL 



TYPEFIELD* 
3IT(16)* 
3ITC24)* 
BIT(24)3J 



This two -layered definition provides roughly 
the following PL/X-style structure: 



the same effect as 



BURROUGHS CORPORATION 
COHPUTER SrSTEtfS GHOUP 
5AMTA BARBARA PLANT 



318C0/B1700 



COMPANY 

SOL (3NF 

P 



5-5 
CONFIDENTIAL 
Version) (F) 
S. 2212 5405 



DECLARE 



DESCRIPTOR 
2 TYPE* 
3 
3 
3 
2 LEN 
2 AODR 
2 VAL 



REMAPS BASE* 
NV 
DATATYPE 



REMAPS ADDR 



BITC 1), 
BITC I)* 
3ITC6)* 
BITC16), 
BITC 24)* 
BITC24)* 



The concept of making several fields alternative formats for the 
same area* or "cospat i a l w * is expressed by enclosing the list of 
alternatives in brackets. This has the advantage of not 
requiring a distinguished alternative <the larqest) which is 
remapped* and it also groups all the alternatives in one spot 
text ua 1 1 y. 




Each field of a record has a type associated with it in the 
declaration (the type may be another record identifier)* and may 
also be arrayed by noting the array bound after the field 
identifier-- similar to an ordinary array declaration. The type 
of an array field may be a record which also contains array 
fields* i.e.* arrays may be nested in a way not permitted by the 
current SDL structures. 



STRUCTURES 



A structure 
curr en t SDL 
def i ned rec or d: 



which would be the functional equivalent of the 
structure may be declared using the previously 



DECLARE D DESCRIPTOR; 



Declaring this structure allocates storage on the value stack for 
the data (48 bits in this case) and allocates one descriptor on 
the name stack. A structure array could also be declared (and 
paged* in this example): 



DECLARE PAGEDC1S) DAC256) DESCRIPTOR? 
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This causes one array descriptor to 
the array is not allocated on 
because the array is paged* 



be allocated- The space for 
the value stack in this case 



The field of a structure is accessed by use of a qualified name. 
For example* the length field of descriptor "D" is named "O.LEN" 
ana the type field is na.ned "O.TrPP. The name-value bit of the 
type field is named W D. Tf PE. H V". When a component of the name is 
an array* a subscript must be mentioned after that component as 
in rt DAC23),TyPE.NSR w . Qualification must be complete and 

explicit* unlike that of PL/ I or COBOL. The dot notation was 

chosen because it is atsost a standard among languages using 
qualified names. The underscore character C^") is used as a 
replacement for the current use of *• • w as an identifier creak 
char act er . 



INDEXED FIELD KEFERE^CES 



To provide a link between current and new facilities* a field of 
a record may be named by itself Cno qualification) with an index. 
The effect is the same as indexing a field of a structure 
declared REMAPS BASE. This eases reproqr amaii ng since in many 

applications the structure declaration could be rewritten as a 
recorc without changing the rest of the code. 



SIHUCTURED RECORD 5IAI£M£NT 



STRUCTURED RECORD STATEHEtfT> : : = 

RECORD 01 SECORO IDENTIFIED <TYPE> 
STRUCTURE ELEMENTS> 

<RECGRD IDENTIFIER> ::= <IDENTIFIER> 



STRUCTURE ELEMENTS> :: = 

* <LEVEL KUM8ER> STRUCTURE EL£MEdT> 
I <LEVEL NUMBER> STRUCTURE ELEHENT> 

ti $ * STRUCTURE ELEMENTS> 

STRUCTURE ELErtEtfT> :: = 

<FIELD NAME> <TYPE> 

! <FIELD NAME> <ARRAY B0UND> <TYPE> 

! FILLER <TYP£> 

I <FIELD NAHE> REMAPS <REHAPS 08JECT> <TYPE> 
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Structured Records have been implemented to allow easier 
conversion of the current PL/I-style structures to records. 



Structured Records have the same capabilities as RECORDS. 



Fields declared as an array may not have nested structure 
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<C£CLARE ELEH£NT> : : = 
<DECLARED PART> : : = 



(COMPLEX IDENTIFIER 
LIST> :: = 



<COMPLEX IDENTIFIED 

<SIMPLE IOENTIFIER> 
<ARRAY 1 F. ?si T 1 F I £ R > : 
<ARRAY BOUNQ> : 

<REMAP OBJ£CT> ::= 



<TYPE PART> : : = 

REMAPS TYPE PART :: = 

<RECGRD IDENTIFIED : 

<FIELD SIZE> ::= 
<CONSTANT EXPRESS ION> 



<C3NSTANT EXPRESSION 
OPERATOR> : : = 



.1 <DECLAREO PART>I ... 

^COMPLEX ID£NTIFIER> <TYPE PART> 
I (<COMPLEX IDENTIFIED LIST>) 

<TYPE PART> 
I <COHPLEX IOENTIFIER> REHAPS 

<R£HAP OBJ£CT> <REHAPS TYPE PART> 



<COMPLEX IDENTIFIER> 
! <COMPLEX IDENTIFIERS 

<COHPLEX IDENTIFIER LIST> 

<SIMPLE IOENTIFIER> 
1 <Afl«AY IDENTIFIER> <ARRAY BOUND> 

<IOENTIFIER> 

IDENTIFIED 

(^CONSTANT EXPRESSION>) 

BASE 
I <SI*IPLE IDENTIFIER) 
\ <ARRAY IDENTIFIER) 
I <ADDRESS GENERATOR> 

FIXED 
I CHARACTER <FIELD SIZ£> 
I 8IT <FIELO SIZE> 
! <RECORD IDENTIFIER> 

FIXED 

I CHARACTER <FIELD SIZE> 
1 SIT <FIELD SIZE> 

IDENTIFIER) 

CCC0N5TANT EXPRESSION)) 

<NUMBED I <CONSTANT EXPRESSION 
(CONSTANT EXPRESSION OPERATOR> 
<NU*8ED I C<CONSTANT EXPRESSION>) 

% + I - I * I / I HOD 
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Data may be declared as simple* having ore occurrence* or as 
subscripted* having as many occurrences as specified by the 
<ARRA* BOUNDS 



The <TYPE PART> specifies the type of data in the field and the 
field size. 



As the syntax indicates* different data fields having the same 
type (nay be declared collectively as a <C0MPL£X IDENTIFIER LIST>. 



The #f ol low i ng examples illustrate the various options available 
in this type of ^DECLARATION STATEMENTS 

DECLARE A FIXED* 

B CHARACTER (10)* 
C 81 T (40 )* 
CD* E* F (5) ) 3IT (10)* 
G (20) FIXED* 
H (5) CHARACTER (6); 

1. A is a 24 -bit signed numeric field. 

2. H is a 10-pyte character field. 

3. C is a 40-bit field 

4. D and E are 10-bit fields each. 

5- F is a 5- element array of 10-bit fields- 

6. G is a 20-element array of 24-bit signed numeric 
fields. 

7« H is a 6-byte character array with five elements- 
Data fields may be re-formatted by the use of the remapping 
d e v i c e : 

CCGXPLEX IDENTIFIED REMAPS <REMAP 03JECT> <TYPE PART> 



Remapping is subject to the same general rules discussed above. 
The following example best illustrates its use. 



DECLARE A FIXED* 8 BIT (50)* 

AA REMAPS A CHARACTER (3)* 
BB(2) REMAPS SU3BIT(B*2) FIXED; 
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Note that 88 specifies ^8-bits (or 2 elements* 2A-bits each). A 

field may not be remapped larger than its original size. If the 

<REMAPS 08JECT> is an <AD0RESS 6ENERAT0R> this check cannot be 

made until run time. The check will be made only when the the 
compiler option F0RM4L_CHECK is set. 

There is no limit on the number of times a field may be remapped* 
A field which has remapped another may itself be remapped. The 
REMAP option specifies that the identifier on the left side of 
the reserved word REMAPS will have the same starting address as 
the identifier on the right side. 



For rules concerning the remapping 
declarations* see those sections. 



of dynami c or 



forma I 



A data field may d e remapped to base which will give the field 
relative address of zero. For example: 



OECLARE X REMAPS BASE 8IT(7); 



This device is used as a free-standing declaration since it does 
not remap a previously declared data item and is used primarily 
with data to be indexed (See ADDRESS VARIABLES). 
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<DECLARE ELEMENT> : := ... I STRUCTURE LEVEL NUMSER> 

<STRUCTU*E DECLARED PA«T> 
STRUCTURE TYPE PART> I ... 

STRUCTURE LEVEL 

NUMB£R> ::= <NUM3ER> 

<STRUCTURE DECLARED 

PART> :: = ^DECLARED PART> 

I FILLER 

I <DUMHY PART> REMAPS <REMAPS OBJECT> 

<DECLARED PART> : := See NON-STRUCTURE DECLARATIONS 

<CUMMY PART> ::= DUMMY <ARRAY BOUND PART> 

<ARRAV BOUND PA*T> ::- <FMPTf> 

I < ARRAY BOUNO> 

<ARRAY 80UND> : : = C<C0NSTANT EXPRESSIONS 

<STRUCTUrtE TYPE PART> : := <E;4PTY> 

I <TYPE PART> 

I CHARACTER I BIT 

<TYP£ PART> : := See NON-STRUCTURE DECLARATIONS 



SDL allows the structuring of data where a field may be 
subdivided into a number of sub -fields* each of which has its own 
identifier. The whole structure is organized in a hierarchical 
f o r ,n # where the most general declaration is at Level 01 (or I) 
and the highest at Level 99, A suodivided field is called a 
group item* and a field not subdivided is known as an elementary 
item. 



When the REiMAPS option appears on a declare with level number 
greater than one* it is known as an in tr a-s t ruct ur e remap- In 
this case* the <R£MAPS 0BJ£CT> must be the last identifier 
declared in the same structure with the same level number unless 
that identifier was also declared with REMAPS. In that case both 
must remap the same identifier. 



DECLARE 1 A* 




2 8 


3ITC5)* 


2 C 


BIT (40)/ 




3 8 I T ( 1 ) * 


2 E 


REMAPS C CHARACTERC1 )* 


2 F 


REMAPS C FIXED* 



2 g fixed; 
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is legale but E and F may not remap 8 or 0. 



The type and length of data need- not be specified on the group 
level. All elementary items roust indicate type and length* and 
the compiler will assume tyoe bit and add the lengths of the 
components to determine the length of the group item- For 
e xampl e : 



DECLARE 1 



A* 

02 



C* 

03 8ITC20 ), 

03 E 8ITC30 >* 

D CHA3ACTERSC5); 



In this example* both A and C are considered group items* with A 
having a total length of 90 bits and C being 50 bits long. 

FILLER 



FILLERS may be used to designate certain elementary items which 
the program does not reference. If the group item has a length 
specified and the FILLER is the last item in a structure* it may 
be omitted* and the compiler will consider the item to be an 
implied FILLER. A FILLER may never be used as a group item. 



A group item may have a type specified with length omitted. The 
compiler will calculate the length from the length of the 
sub-items. For example: 



DECLARE 01 



A CHARACTER* 
02 8 FIXED* 
2 C 8 1 T ( 5 ) * 



A will become type CH4R ACTERC 4) leaving an implied 3-bit filler 
after C * 



If the 01 level group item is an array* it is mapped as a 
contiguous area in memory. However* subdivisions of this array 
are not contiguous. In the example structure below* 



01 A(5) 3ITC*»3)* 



01 AC5)* 
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B FIXED, 

c fixed; 



*»* 48 bits 

* 



I AO I Ai i A2 » A3 I A4 I 

I 83 ! CO I Bl 1 CI I B2 ! C2 1 63 I C3 I 84 I C4 I 



** * 24 bits 



If a group item is an array, an array specification may not 
appear in any subordinate item; that is, only one-dimensional 
arrays are allowed. Down-level carry of array specifications is 
i mpl ied. 



Structured data may be remapped in the same manner as 
non-structured data. In addition, structured data may be 
remapped with a dummy group identifier. The purpose of this 
construct is to allow the user to remap data items without having 
to declare another group item which describes the same memory 
area. Thus, in the following example: 



01 A B ITU 00), 
02 8 3ITC20), 
02 C 3ITC8G ); 



A w might be REMAPped as 

01 



01 AA REMAPS A 8ITC10Q ), 

02 B8 8ITC30)* or 

2 cc BiTtroi; 



DUMMY 
02 8B 
02 CC 



REMAPS A 
6ITC30), 
BI T< 70) ; 



9ITC100), 



Both A and AA in the above example refer to the same area in 
memory. Hence AA is redundant. During runtime, the descriptor 
for AA will also be on the stack. 
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If DUh»MY is substituted for the identifier AA# no descriptor will 
be generated* however 88 and CC will both point to A in the 
corr ec t fash i on. 



The user should note the distinction between DUMMY and FILLER, 
DUMMY is used in conjunction with REMAPS to eliminate the 
necessity of declaring a redundant group item* FILLER is used if 
one desires to skip over an area of core. 



The following restrictions apply to the use of CUMHY REMAPS: 

1. DUMMY may only be used with remap declarations. 

2. All the restrictions applying to REMAPS apply to 
DUMMY REMAPS. 

3. DUMMY must not remap another DUHMY. 

4. DUMMY group iten-s must have at least one non-filler 
component . 
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...I PAGEO <ELENENTS-PER-PAGE PART> 
<ARRAY IDENTIFIER> <ARRAY BOUND> 
<TYPE PART> 



(<CONSTANT EXPRESSION>) 
<IOENTIFIER> 
(^CONSTANT EXPRESSION) 



The paged array declaration allows the user to segment arrays. 
The <ELEMENTS-PER-PAGE PART> specifies the number of array 

elements contained in each segment. For example: 



PAGECC64) AC4096) BIT(l); 



is an array of 4096* 
64-element segments. 



I -bit elements* segmented into 64*. 



Restrictions: 

1. Paged arrays may not be indexed. 

Paged arrays may not be part of a structure 

Paged arrays may not be remapped. 



2. 

3. 

A. 



5. 



The number of elements per page must be a power of 2* 
and may not exceed 32*768. 

The <ARRAY 30UND> may not exceed 65*535 but the 
bounds may be subsequently increased to a maximum of 
16*777*215 by use of the GROW statement. 
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£XN£MJ£ MSLARATIONS 



<CECLARE ELEMENT> : : = 



...I DYNAMIC <OYNANIC COMPLEX 
IDENTIFIER> <DYNAHIC 
TYPE P*RT>I ... 



<DYNAt*IC COMPLEX 
ICENTIFIER> :: = 



<IDENTIFIER> I <ARR4Y IDENTIFIER> 
OYMAHIC SUBSCRIPT 30UNDS> 
I PAGED <DYNAMIC ELEMENTS PER PAGE> 
<ARi*AY IDENTIFIER> 
<OYN««IC SUBSCRIPT 30UN0S> 



<DYNAMC ELEMENTS 
PER PAGE> 



<<EXPR£5SI0N>) 



<CYNAMIC SUBSCRIPT 
B0UNDS> ::= 



(<EXPRESSION>) 



<0YNAMIC TYPE PART> 



8IT <DYNAMIC FIELD SIZE> 
I CHARACTER <0YNAMIC FIELD SIZE> 
I FIXED 
I <RECQR0 IOENTIFIErt> 



<0YNA*IC FIELD SIZE> 



(<EXPRESSION>) 



The dynamic declare statement allows the user to declare simple 
data with a non-static field length and/or array bound. For 
exampl e : 



PROCEDURE ABX; 

DECLARE DYNAMIC X BIT(A); 



where A will determine the length of X. The value of the 
cEXPRESSI0N> appearing in the <DYNA^IC FIELD SI Z£> is used to 
determine the number of bits or characters in the declared data 
item. If X were an array* its bounds would be evaluated at run 

tiie as well* 
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I. 



2. 



The variables used in the <DrNAMIC FIELO SIZE> must 
have been previously initialized* 

Oynamics may not appear on Lexic Level 0. 



Dynamic variables may be remapped* however a warning message will 
appear in the source listing- It is the programmers 

responsibility to ensure that a dynamic is not remapped larger 
than allowed. If $F OfttfAL_CHECK is set* this remapping length 

will be run time checked* 
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<CECLARE ELEMENT> : : = 
OECLAREQ REF> :: = 

<SIMPL£ IDENTIFIER LIST> 



... ! <DECLARED REF> REFERENCE! 

<SIHPLE IOENTIFIER> 
I (<SIMPLE IDENTIFIER LIST>) 

= <SI.4PLE IDENTIFIED 
I <SIMPLE IDENTIFIERS 

<SIHPLE IDENTIFIER LIST> 
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<OECLARE ELE?!ENT> : : = 
cDECLAREO RECORD REF> ::= 



... I <OECLAREO RECORD REF> REFERENCE I. 

<SIHPLE IDENTIFIER> 
<RECORD ID£NTIFIER> 



RECORD REFERENCE VARIABLES 



In some cases*' storage is not to be directly allocated for a 
record* 1 but a certain area of an array or large string is known 
to have the format specified by a record. This is the case in 
which indexing is applied currently. Record reference variables 
are designed to replace this use of indexing. 



A record reference 
DESCRIPTOR, as 



variable is declared* say for record 



DECLARE DR DESCRIPTOR REFERENCE; 



Record reference variables are assigned with a REFER statement 
like ordinary reference variables* but they may be written in 
other statements as though they were structure names* i.e-* they 
Kay have field qualifiers attached with the dot notation. Such 
an access subfields the current memory area described by the 
reference variable according to the record specification. For 
examp I e» 



REFER DR TO 



SU8BITCMYAREA* 

X := dr.len; 



100* 48); 



assigns X to bits 108 through 124 of the string NT A RE A 



All restrictions which apply to normal reference variables are 
applicable to record reference variables as well. Record 
reference variables may not be used in the REDUCE statement. 
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FILE <FILE OECLARE ELEMENT LIST> 



<FILE 
<FILE 
<FILE 



DECLARE 
DECLARE 
OECLARE 



ELEMENT> 
ELEMENTS 
ELEMENT LIST> 



<FILE IOENTIFIERxFILE ATTRIBUTE PART> 
<IOENTIFIER> 

<£MPTY> 

(<FILE ATTRIBUTE LIST>) 

<FILE ATTRIBUTE> 

<FILE ATTRIBUTED <FILE ATTRIBUTE LIST> 

<LA8EL PART> 

<OEtfICE PART> 

<MOOE PART> 

<8UFFERS PART> 

<VARIABLE RECORD PART> 

<LOCK PART> 

<SAVE FACTOR PART> 

<RECORO SPECIFICATION PART> 

<R£EL NUMBER PART> 

<OISK FILE DESCRIPTION PART> 

<PACK-ID PART> 

<OPEN OPTION PART> 

<ALL_AREAS AT OPEN PART> 

<AR£A_ay_c7LINDER PART> 

<EU_ASSIGNM£NT P 4R T> 

<MULTI_PACK PART> 

<US£ INPUT_BL0CKING PART> 

<£ND_OF_PAG£ PART> 

<REMQTE._KEY PART> 

<NUHBER_OF - STATIQMS PART> 

<FILE TYPE PART> 

<WORK FILE PART> 

<LA3EL TYPE PART> 

<INVALID CHARACTER REPORTING PART> 

<MONITOR SPECIFICATION PART> 

<SERIAL NUMBER PART> 

<QPTIONAL FILE PART> 

<TAPE LABEL PART> 

EXCEPTION MASK PART> 

TRANSLATE PART> 

<US£R NAMED BACKUP PART> 

<PROTECTION PART> 

<PROTECTION 10 PART> 
<HOST NAME PART> 
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All attributes are optional* as the above syntax indicates. 
Default status will automatically be set for omitted attributes 
as follows: 



SYNTAX: 



<LABEL PART> 



<FILE IDENTIFICATION PART> 
IGENTIFICATION> 



LABEL = 

<FILE IDENTIFICATION PART> 

<MULTX-FILE IQENTIFI C ATI ON 

I <MULTI-FIL£ 



<FILE IDENTIFICATION> 
<MULTI-FILE IDENTIFICATION : : = CHARACTER STRING> 
<FILE IDENTIFICATION ::= CHARACTER SFRING> 

where : 

<F ILE IO£NTIFIER> is a file or program identifier 
by which the program identifies the file. 

and: 

<aULTI-FILE IDENTIFICATION and <FILE 
IDENTIFICATION are name or contents of 
identification field on file label or Disk 
Directory by which the system identifies the file. 



FORMAT: LABEL = "NAME.!" / "NAME_2 n 
or 
LABEL = "NAME_1" 

Ex ampl e: 

FILE INV_DATA_1 (LABEL = "RCD^TAPE" / W FTLE_1 W ); 

Note: The system will use only the first ten characters 
of the "NAHE". 



DEFAULT 



SYNTAX : 



If LABELCs) is Care) not specified* the INTERNAL FILE 
NAME* i.e.* <FILE IDENTIFIERS is moved to <MULTI-FILE 
IDENTIFICATION* and blanks are moved to <FIL£ 
I0ENTIFICATIQN> in the FP3 (FILE PARAMETER BLOCK). 



<DEVICE PART> :: = 



DEVICE = <DEVICE SPECIFIEN 
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<CEVICE SPECIFIED :: = 



<ACC£SS HOOE> ::= 
<CEVICE OPTIQN> : : = 



<8ACKUP OPTION> : : = 



<BACKUP SPECIFIER> 



TAPE 
TAPE.r 
TAP£_9 
TAPE_PE 
TAPE NRZ 
DISK <ACCES 
DISK PACK < 
DISK_FILE < 
DISK_PACK_C 
DISK_PACK_C 
CARO 
CARD_READER 

CARD_PUNCH 
PRINTER <0E 

PUNCH <0EVI 
PAPER_TAPE_ 
<0EVICE OPT 
D4TA_i*ECCK0 
READER..PUNC 
<0EVICE OPT 
PUNCH.PR INT 
REAOEa 96 
PAPER TAPE 
SQRTER_READ 

READER SORT 
CASSETTE 
REMOTE (<0U 
OPTION> 
QUEUE (<QUE 

<QUEUE OPfl 



S MOOE> 
ACCESS MODE> 
ACCESS MOD£> 
ENTURY <ACCESS MOOE> 
AELUS <ACC£SS MODE> 



<OEVICE OPTION> 
VICE OPTION 

CE OPTION> 

PUNCH 

ION> 

ER_80 

H_PRINTER 

IQN> 

ER <DEVICE OPTION> 

READER 

ER 

ER 

EUE SI2E>) <REMOTE 

UE SIZE>) 
0N> 



<EMPTY> I SERIAL 1 RANOOM 

<EMPTY> 

^BACKUP OPTI0N> 

<SPECIAL FORMS OPTION> 

<SP£CIAL FORMS OPTION> 

OACKUP QPTIOis> 

<8ACKUP SPECIFIER> 
QR OACKUP SPECIFIER> 
UQ BACKUP 

BACKUP 1 BACKUP TAPE 
BACKUP OISK 



<SPECIAL FORMS OPTION> 
<REMQTE OPTION> : := 

<QUEUE SIZE> ::= 
<QUEUE QPTION> :: = 



FORMS 

<EMPTY> I FAMILY I WITH HEADERS 
I FAMILY WITH HEADERS 

<NUM8£R> 

<£MPTY> 
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<FAMILy 5IZE> ::= 



I FAMILY C<FAMILY SIZE>) 
<NUMBER> 



FORMAT: 



DEVICE = 



C 

C 

T 

T 

T 

T 

T 

** D 

** 

** D 

** 



*** 



ARD 

ARD_ 

APE 

APE 

APE. 

APE. 

APE. 

ISK 

ISK_ 

ISK. 

ISK. 

ISK. 

ARD. 

RINT 

RINT 

UNCH 

UNCH 

APER 

APER 

ATA_ 

EADE 

EADE 

UNCH 

UNCH 

EADE 

APER 

QRTE 

EAOE 
ASSE 

EHOF 
UEUE 



READER 

7 

9 

PE 

NRZ 

PACK 
FILE 

PACK.CENTURr 

PACK.CAELUS 

PUNCH 

ER 

£3 FORMS 



FOR 
-TAP 
.TAP 

RE CO 

n_pu 

R.PU 
.PR I 
_PRI 
R 96 
.TAP 
3.RE 

R SO 
TTE 

E (< 



MS 

E.PUNCH 

E.PUNCH FORMS 

RDER 60 

NCH.PRINTER 

NCH POINTER FORMS 

NTER 

NTER FOaMS 

E.READER 
4QER 

RTER 

QUEUE SIZE>) 
UEUE SIZE>) 



may or may not be followed by any single option below 



BACKUP 
BACKUP TAPE 
BACKUP DISK 
OR BACKUP 
OR BACKUP TAPE 
OR BACKUP DISK 
NO BACKUP 

Note: See <US£R NAMED 3ACKUP PART> for sore on backup- 



** may or may not be followed by any singte option 
below : 
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SERIAL 
RANDOM 



*** may or may not be followed by options applicable to 

this "device". See syntax above- 
Examples: DEVICE = TAPE 

DEVICE = PRINTER BACKUP 

DEVICE = PRINTED FORMS BACKUP TAPE 

DEVICE = REM0TEC5) KITH HEADERS 



DEFAULT: In the absence of any specification* 
assumed by the compiler. 



disk will be 



SYNTAX: 



FORMAT: 



DEFAULT 



<MODE PART> ::= 
<HODE SPECIFIED :: = 

<FILE PARITY PART> ::= 
cTRAMSLATION PART> ::= 



MODE = <MODE SPECIFIER> 

<FILE PARITf PART> 
I <TRAiMSLATION PART> 

ODD I EVEN 

EBCDIC I ASCII I BCL J 8IMARY 



MODE = BCL 
MODE = ASCII 
HCOE = EVEN 

Default is odd or EBCDIC* whichever is applicable 



SYNTAX: 

FORMAT: 
DEFAULT: 



<8UFFERS PART> : : = 



BUFFERS = 

<NUMBER OF BUFF£RS> 

<NUN3ER> 



<NUM8ER OF BUFFERS> :: = 
SUFFERS = NUMBER 
If not specified* Duffers will be set to 1 in the FPB 



SYNTAX: <VARIA8LE RECORO PART> :: = VARIABLE 

FORMAT: VARIABLE 

DEFAULT:= Not variable* i.e.* fixed-size records. 
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SYNTAX: <LOCK PART> :: = LOCK 

FORMAT: LOCK 

DEFAULT:^ LOCK is not set. 



SYNTAX: <SAVE FACTOR PART> ::= SAVE = <SAVE FACTOR> 

<SAVE FACTOR> : := <NUMBER> 

FORMAT: SAVE = NUH8ER (of days to save file) 

DEFAULT: If not specified* the SAVE specifier will be set to 
30 in the FPB. 



SYNTAX: <REC0RD SPECIFICATION 

PART> ::= RECOROS = <REC0R0 SIZE 

SPECIFIER> 

<RECORO SIZE SPECIFIER> ::= <PHYSICAL RECORD SIZE> 

I ^LOGICAL RECORD SIZE> 
<SL ASH> 

<L0GICAL RECORDS PER 
PHYSICAL RECORD> 

^PHYSICAL RECORD SI ZE> ::= <NUM8£R> 

<LQGICAL RECORD SIZE> ::= <NUMBER> 

<L0G1CAL RECORDS PER 

PHYSICAL RECORD> ::= <NUMBER> 

FORMAT: RECORDS = NUMBER 
or 
RECORDS = NUMBER / NUMBER 

Note: <PHYSICAL RECORD SIZE> indicates the number of 
characters per block; <L0GICAL RECORD SIZE>, the number 
of characters per record- 
Example: 

RECOROS = 1200 

or 

RECORDS = 120 / 10 

DEFAULT: In the absence of record speci f i ca t i ons» unblocked records 
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of the following lengths will be assumed. 



Oi sk 180 bytes 

Tape 8 bytes 

Any paper tape configuration 80 bytes 

Any 96 column card configuration 96 bytes 

All remaining card configurations 80 bytes 

Any printer configuration 132 bytes 

Al I others 72 bytes 



SYNTAX: <REEL NUHBER PART> : := REEL = <REEL NUHBER> 

<REEL NUMi3ER> :: = <NUM3£R> 

FORMAT: R££L = 2 

DEFAULT: The FPB assumes #1 in the absence of any specification. 



SYNTAX: 



Format : 
E xamp I e 



OEFAULT 



<DISK FILE DESCRIPTION 
PART> : : = 



<NUM8ER OF AREAS> 

<PHYSICAL RECORDS 
PER AR£A> ::= 



AREAS = <NUMBER OF AREAS> 

<SLASH> 

<PHYSICAL RECORDS PER AREA> 

<tfUMBER> 



<NUMBER> 



Areas = # of Areas / #of Slocks Per Area 
Areas = 20 / 80 

Note: <PHYSICAL RECORDS PER AREA> indicates the 
number of blocks per area* This attribute is 

applicable for disk files only. 

If areas are not specified* the FPS will assume 25 
Areas with 100 Blocks Per Area. If the record 
specifications have been given the compiler will 
compute the number of Records Per Area. However* if 
record specifications are omitted* the FPS will assume 
10 records per area. In either case then* whether 
areas are specified or not* the compiler will have 
computed the number of records for insertion in the 
FPB. 
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SYNTAX: 



<PACK ID PART> 



PACK ID - 

<PACK IOENTIFICATION> 



FORMAT: 



DEFAULT: 



<PACK 
IJENTXFICATION> ::= 

PACK ID = "NAME" 



CHARACTER STRING> 



Note: The system will use only the first ten 
characters of the "NAME". 

If absent* <PACK IDENTIFICATION will be set to 
b lanks in the FP3. 



SYNTAX: 



<0PEN 0PTI0N>::= 



0PEN_0PTIQN= 

<0PEN OPTION ATTRIBUTE LIST> 



FORMAT 



DEFAULT: 



<OP£N OPTION 
ATTRIBUTE LIST>: : = 



<OPEN ATTRIBUTE> 
I <OPEN ATTRI3UTE> <SLA5H> 

<OPEM OPTION ATTRIBUTE LIST> 



Example: 0PENJ3PTIQN = Oi 



Not: e: 



<0PEN ATTSIBUTE> : := SEE "OPEN STATEMENT" ^ ""> 

0PEN_3PTI0N = ATTRIBUTE / ATTRIBUTE. • . 

utput / new cAve*T -rxoce- 

<QPEN STATEMENT> may be separated by commas* and the 

<0PEN ATTRI3UTE>s in the <0P£N 0PTI0N> above are 
separated by slashes. ^ ^ ^^ ^^ ^ J^ 

TTRI2UTE>s will be sef as *f*^2 



If absent 
f ol lows : 



the <0PEN A 



If <0EVICE> is: 



<0PEN 0PTI0N> is: 



CARD 

PRINTER 

PUNCH 

REMOTE, 

QUEUE 



INPUT 
OUTPUT 
OUTPUT 
INPUT 

.INPUT/OUTPUT 
' INPUT 
INPUT/OUTPUT 
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SYNTAX: <ALL_ A RE AS_ AT_OPEN PART> :: = *LL_ AR EAS_ A T_OPEN 

FUNCTION: If this option is set* disk space for each area will 

oe allocated when the file is opened. If 

insufficient space is available* a 5P0 message will 
indicate that there is no user disk* 



DEFAULT 



Areas are created as needed- 



SYNTAX: 
FUNCTION' 



DEFAULT: 



<AREA 9Y CYLINDER PART> 



AREA BY CYLINDER 



If this option is specified* each area will be placed 
at the beginning of a cylinder. If there is no 
(sore) space at the beginning of any cylinder* a 3P0 
message will indicate that there is no user disk. 

Areas are placed anywhere on disk. 



SYNTAX: 



FUNCTION 



<EU ASSIGNMENT P AR T> 



DEFAULT: 



£U SPECIAL = <NUM8Etf> 
I EU INCREMENTED = <NUM3ER> 



The <NUM8ER> specifies any integer through 15. 
**EU_SPECI AL W is applicable only with head-per-tr ack 
disks ana systems disk packs* and specifies the drive 
on which the file is to go. "£U_I INCREMENTED" 
specifies the disk drive on which the first area of a 
file is to go. Each subsequent area is placed on the 
next drive. If* with either option* the necessary 
£ . U • is not available* E.U. will be taken. 

Space for files and areas is allocated anywhere on 
disk. 



SYNTAX: 
FUNCTION 

DEFAULT: 



<MULTI PACK PART>: : = 



HULTI PACK 



If this option is specified* the entire file may be 
put onto several disk packs. 

The file will be placed on one disk pack. 



SYNTAX: <US£_INPUT SLOCKING 
PART> ::= 



USE INPUT BLOCKING 
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FUNCTION: This option applies to input disk* tape* or card 
files. If specified for disk* the record and block 

size specifications will be taken from the Oi sk File 
Header and the user's specifications will be ignored. 
If specified for tape* the tape must be labeled; 
otherwise* a run-time error occurs. If specified for 
card files* the following record lengths will be 
a ssumed : 



80-col = 80 bytes 
96-col = 96 bytes 
BIN = 960 bi ts 

DEFAULT: The record and block size are as stated in the file 

declaration- Those options omitted are set to 

default status. 



SYNTAX: 
FUNCTION 



<EN0 OF PAGE ?ART> 



END OF PAGE ACTION 



This attribute will cause the <E0F FAPT> of 
STAT£MENT> to be executed at the end of a 
printer file. Refer to "WRITE STATEMENT- 
SEQUENCE" for details. 



a <WRITE 

page on a 

and "ON 



DEFAULT 



Mo automatic paging action 



SYNTAX: 

FUNCTION 



DEMOTE KEY PART>: : = 



REMOTE KEY 



This atrribute is used only with files of type 
"REMOTE". When present* it indicates that a key may 
be present on a read or write to that file. If 
missing* then no key can be used. The forirat of the 
key is given oelow. Each field of the key is in 
decimal characters. The key is a total of 10 
characters formatted as follows: 



DEFAULT: 



Station Number 

Message Length (byte count) 

Message Type (must be "000") 

No remote key 



3 char act er s 
A ch ar act er s 
3 characters 



SYNTAX: 



<NUM8ER_0F_STATI0NS PART>:= NUM8£R_0F_ST A TI0NS = <NUM3ER> 
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FUNCTION: This attribute is used only with files of type 
"REMOTE". When present/- it specifies the inaximunn 

number of stations that can be attached to this file. 

DEFAULT: NUMBER OF STATI0NS=1 



SYNTAX: 



FUNC TI0N5 



DEFAULT: 



<FILE TYPE PART> :: = 



FILE TYPE=<FILE TYPE SPECIFIED 



<FILE TrPE SPECIFIER >: := OATA t INTERPRETER I COOE 

I INTRINSIC I PSR_D£CK 

This attribute allows SOL programs to specify the 
type of the files they are creating. In particular* 
the compilers will use the type "CODE" for their 
codef i les. 

F ILE TYPE = DATA 



SYNTAX: 

FUNCTION: 

DEFAULT: 



<W0RK FILE PART>:: = 



WORK FILE 



This attribute causes the job number to be included 
as part of the file identifier. 

Not a workfile 



SYNTAX: <LA8EL TYPE PART>: := LABEL_TY PE = <L ABEL TYPE SPECIFIERS 

<LABEL TYPE SPEC IF IER> : := UNLABELED \ BURROUGHS 

FUNCTION: This attribute allows the label type to be specified. 

DEFAULT: ANSII STANDARD LABEL 



SYNTAX: 



<INV CHAR REPORTING PAKT>:.' = 



<INV_CH4R_ 
REPORT TYPE PART> 



INVALID CHrtRACTERS= 

<INV CHAR REPORT TYPE PART> 



I I I 2 I 3 



FUNCTION: 



Invalid characters occurring in a print file will be 
reported on the 5P0 to the computer operator* as 



BURROUGHS CORPORATION 
COMPUTER SYSTEMS GROUP 
SANTA BARBARA PLANT 

s peci f i ed : 
VALUE TYPE 



B1800/B170J 



5-31 

COMPANY 'CONFIDENT! AL 

SDL (8NF Version) (F) 

P.S. 2212 5405 



Report all lines containing invalid 

characters. 

Report all lines containing invalid 

characters and then step program. 

Report once that the file contains 

invalid characters. 

Do not report that the file 

contains invalid characters. 



DEFAULT: 



SYNTAX: 

FUNCTIUN: 
DEFAULT 



<MQNIT0R SPEC PART> 



M0NIT0R_INPUT_FILE 
! MONITOR OUTPUT FILE 



See Appendix VIII: SOL MONITORING FACILITY 
Not present 



SYNTAX: 



FUNCTION 



DEFAULT 



<SERIAL NUMBER P AR T> :: = 



SERIAL - <NUM8ER> 
1 SERIAL = <CHARACTER STRING> 



The file will be opened on the output media with the 
specified serial number. 

Not present 



SYNTAX: 

FUNCTION 



<0PTIONAL FILE PART> : : = 



OPTIONAL 



If this option is used on an input file* then the 
file may be hissing and the operator may respond with 
the GF message to the FILE MISSING message. This 
will result in the execution of the ON EOF branch on 
the execution of the first read of the file. 



DEFAULT: 



Reset 
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SYNTAX: 



{EXCEPTION ttASK PART> 



EXCEPTION MASK = <8IT STRINO 



FUNCTION: The exception mask specifies the types of exceptions 
that the program is wilting to handle for this 
particular file. See the B17Q0 MCP Manual for a 

description of the bit assignment within the bit 
string. Note that this string should generate a 
2A-bit value. 



0EFAULT: 



aocooooa 



SYNTAX: 



{TRANSLATE PART> 



TRANSLATE = {CHARACTER STRING> 



FUNCTION: The MCP will do a soft translation on the file using 
{CHARACTER STRING> as the file-id for the translate 
table file. The mult i "file- id for the translate 

table file will be "TRANSLATE". 

DEFAULT: DEFAULT: No translation. 



SYNTAX: {USER NAMED BACKUP PART>::= USER_N AM£0_B A CKUP 

FUNCTION: If the file goes to backup* its name will be its 

given external nanae rather than a systeir selected 
name. 



DEFAULT: 



System selects backup file names. 



SYNTAX: 



FUjMC TI0M 



{PROTECTION PART>: : = 
{PROTECTION TYPE PART>:: 



PROTECTION = {PROTECTION TYPE PART> 
1 1 J 2 I 3 



(See MCP Control Syntax product specification in File 
Attribute description.) 



SYNTAX: {PROTECTION IQ_PAftT>::= PRO TEC TI 0N_I = {PROTEC TION_IO TYPE 

PART> 
{PR0TECTIQN_IU TYPE PART::= 1 1 I 2 I 3 

FUNCTION: CSee MCP Control Syntax product specification in File 

Attribute description.) 
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SYNTAX: <HOST_NAME PART>:= HOST_NAHE = CHARACTER STRING> 

FUNCTION: Specifies the name of the host system for this file. 
DEFAULT: No host specified- 
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SWITCH FILE <SWITCH FILE 
DECLARE ELEHENT LIST> 



<SWITCH FILE 

DECLARE ELEMENT LIST>::= 



<5WITCH FILE DECLARE £LEMENT> 
I <SWITCH FILE DECLARE ELEMENTS 

<SWITCH FILE DECLARE ELEMENT LIST> 



<SWITCH FILE 
DECLARE ELEMENT> :: = 



<SWITCH FILE IDENTIFIED (<FILE 
IDENTIFIER LIST>) 



<SWITCH FILE IDENTIFIER> 
<FILE IDENTIFIER LIST>:: 



<IDENTIFI£R> 

<FILE IDENTIFIED 
I <FILE IDENTIFIER^ <FILE IDENTIFIER LIST> 



A switch file declaration specifies the elements of a "CASE"* 
these elements being files. A subscripted <SWITCH FILE 
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The following example copies card iuaqes from cards* 
disk to cards* printer* tape* or disk: 



FILE 



tape* or 



CAROS(DEVICE=CARD) 
*TAPEI(0EVlCE=rAPE*U5E_lNPUT_BLGCKING ) 
*CISKI(DEVIC£=DISK,USE INPUT BLOCKING) 



FILE 

PUNCH(DEVICE=PUNCH) 
*LIN£C9EVICE=PRINTER) 
*TAPEO(QEVICE=TAPE*RECQROS=80M) 
*CISK0(0EVICE=0ISK^REC0R0S=30/9) 

SWITCH.FILE 

INPUT (CARDS* TAPE I, 01 SKI) 
* CUTPUTC PUNCH* L I NE* TAPED* OISKO) 

9 

DECLARE 

INPUT_TYPE 3IT(24) 
*0UTPUT TYPE BITC2A) 
*8UFFER CHARACTERC80) 

9 

DISPLAY -***** INPUT TYPE'*; 

ACCEPT input_type; 

INPUT_TYPEI3INARY(SUBSTR< INPU T_T YPE*0 * 1 )) flOO I, 

DISPLAY "»**** OUTPUT TYPE"; 

ACCEPT OUTPUT_rYPE; 

0UTPUT_TyPEI9TnARY(SU8STH(0UTPUT_TYPE*C*1 )) HQD 4; 

OPEN INPUTCINPUT.TYPE) INPUT; 

OPEN OUTPUT(OUTPUT_TYPE) OUTPUT* NEW? 

do forever; 

read inputcinput type) (suffer); 
ON EOF undo; 

write outpukoutput type) (buffer); 
end; 

CLOSE OUTPUT(OUTPUT_TYPE) WITH LOCK; 

stop; 

FIN I 
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DECLARATION STATEMENT 
<CEFINE 5TATEM£NT> :: = 

<DEF1N£ EL£MENT> ::= 

<C£FIN£ IOENTIFIER> : : = 
<FORML PARAMETER PART> 

<FORMAL PARAMETER LIST> 

<FORMAL PARAMETER :: = 
<OEF INE STR ING> : : = 
<«ELL-FQRMEO CONSTRUCT> 



<BAS IC COMPONENT> : : = 



= ...l<DEFINE STATEMENTS I. .. 

DEFINE <DEFINE ELEMENT> 
I <OEFINE STATEMENTS 
<OEFINE ELEMENT> 

<OEFINE IDENTIFIED 
<FORMAL PARANETER PART> 
A5 <0£FINE STRING> 

<IOENTIFIER> 

= (<FORMAL PARAHETER LIST>) 
1 T<FQRMAL PARAMETER LIST>3 
I <£MPTY> 

<FORMAL PARAMET£R> 
1 <FORMAL PARAMETERS 

<FQHMAL PARAMETER LIST> 

<ID£NTIFIER> 

#<W£LL-FQRM£D CONSTHUCT># 

= <£MPTY> 

I <8ASIC COMPONENT> 

<WELL-FGRM£D CONSTRUCT> 



<RESERVEO WQRO> 
I <ID£NTIFIER> 
! <SPECIAL CHARACTER> 
1 <CQMMENT ST3ING> 
I <C0J4ST«NT> 



%SEE APPENDIX 



The <OEFINE STATEMENT> assigns the text enclosed between the "S" 
signs following the reserved word AS to the <DEFINE IDENTIFIERS 
Invocation of the <DEFINE IDENTIFIER> causes the text to replace 
the identifier* thereby providing a form of shorthand code. 



At declaration time* the compiler is unconcerned with the 
contents of the <DEFIN£ STRING>. However* when the <0£FINE 

IC£NTIFIER> is invoked* the <WELL-FORMED CONSTRUCT must conform 
to the syntactical requirements of the statement containing the 
iden t i f i er . 
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There are two types of OEFINE STATEMENT>s: Simple and 
Parametric* where the parameters are enclosed in parentheses or 

brackets following the OEFINE IDENTIFIERS Below are examples 
o f both types : 

OEFINE A AS #IF X>10 THEN Pi*0CX#* 
CH AS #CHARACTER#* 
BCY*Z) AS #IF r<Z THEN Y: = Z #* 
C(H) AS # x: = m; A #; 



Notice that <DEFINE STATEMENT>s nay be factored* with commas 
separating each element. 



The <DEFIN£ ICENTIFIER> has scope in the same manner as any other 
identifier (except for SEGMENT and DO-GROUP identifiers). 



Restrictions on the use of DEFINEss 



2. 



3. 



Reserved words may not be used as <0EFINE 
I OENT IF IER> s* however* an identifier may define a 
reserved word. 

"Special" words may be used as <0EFINE £ DENTIF IER> s * 
however * their special significance is lost within 
the the scope of that <D£FIN£ STATEMENTS 

<DEFINE INVOCATIONS may appear within a <W£LL-F0RME0 
CONSTRUCTS i.e.* a <0EFINE IDENTIFIER> may appear 

within another <D£FINE ELEMENTS <DEFINE 

IDENTIFIERS may be nested no more than 12 levels 
deep. 

The identifiers listed below are never looked up in 
the list of define names. 

DECLARE* OEFINE* PROCEDURE* and FORMAL IDENTIFIERS* 

SEGMENT and DO-GROUP IDENTIFIERS* 

FILE* OPEN* and CLOSE ATTRIBUTES* 

<FILE ATTRIBUTE STATEMENT attribute names 

"Oh" condition names (EOF* EXCEPTION* F ILE_MI SSING* 
Q_FULL* Q_£MPTY*N0_INPUT* FILE.L3CKED* I NC0MPLETE_I ). 

" ACCEPT"/" DISPLAY" specif iers: EN0_QF_7£XT 
and CRUNCHED. 
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If one of t hese vi dent i f i ers happens to be the same as a <DEFINE 
IDENTIFIERS no substitution occurs. The ,<Vi£LL -FOR MED CONSTRUCT> 
of the define wilt not replace the identifier. Note* however* 
that duplicate identifiers may not appear within the same lexic 
level; an error message results* 



5. 



There may be no more than eight <F0RtfAL PARArtETER>s 
in a <F0RMAL PARAMETER LIST>. 



6. Refer to Appendix V for rules concerning 

inclusion cards within defines. 



condi t i onal 



The following syntax illustrates the format used in the 
invocation of a <0EFINE IDENTIFIER: 



<DEFINE INVOCATION :: = 



<SI*PL£ DEFINE I0ENTIFIER> 
<PARAtf£TRIC DEFINE IDENTIFIED 
(<DEFIN£ ACTUAL PARAMETER LIST>) 
<PARAMETRIC DEFINE IDENTIFIED 
KDEFINE ACTUAL PARAMETER LIST>] 



<SIMPLE DEFINE 
ICENTIFIER> :: 



<D£FINE IQENTIFIEK> 



<PARAHETRIC 

DEFINE IDENTIFIED 



<D£FIftE IDENTIFIER> 



<DEFINE ACTUAL 
PARAMETER LI5T> : : 



<D£FINE ACTUAL P«RAMETER> 
» <D£FINE ACTUAL PARAMETERS 

<DEFIN£ ACTUAL P«R METER LIST> 



<0EF INE ACTUAL 
PARAMETER> :: = 



<WELL-F0RHED C0NSTRUCT> 



A <DEFIN£ INVOCATION may occur anywhere within an SDL program 
except in the cases listed above in Restriction 4. As indicated 
by the above 8NF# the actual parameters of a define are not 
confined to constants and variables but may have a wide range of 
constructs. For example* the <0EFINE STAT£NENT> mentioned above: 

DEFINE A AS #IF X>10 THEN PR0CX#, 
CH A5 ^CHARACTER** 
8(Y*Z) AS If IF y<Z THEN Y:=2 I* 
C<M) AS # X : = m; A # ; 

might be invoked as follows: 

C(z;buhp icr*s3); 



which expands to: 
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X:=Z; BUHP I£R»Si; IF X>1Q THEh procx; 



The following restrictions apply to the use of the <0£FINE 
INVOCATIONS 



!• No unpaired bracketing symbols* i.e.* () or Up may 
appear. 

2. Within a <DEFINE ACTUAL PAR4HETEH LIST>* commas not 
enclosed within paired bracketing symbols act to 
delimit the <D£FIN£ ACTUAL PARAKETER>s. Therefore a 
<WELL-FQRM£D C0NSTRUCT> not enclosed in bracketing 
symbols may not contain commas. For example: 

DEFINE X(A,B) AS # A(3) #; 

and i n voked as: 

Z:=XCM,Q,R, S)J 

would result in the error message: 

DEFINE INVOCATION HAS TOO MANY PARAMETERS 

Proper invocation is possible by 
removing the parens from the define 
and placing then in the invocation: 

DEFINE XC4,8> 4S M 8 «l 
Z:=X(M,CQ,R,5)); 

3. Comments are allowed but will be deleted from the 
actual parameter text. 
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DECLARATION STATEMENT 

<FORWARD DECLARATION : 

<COMPOUND PROCEDURE 
HEAD> ::= 

^PROCEDURE HEAD> :: = 
<BASIC PROCEDURE HEAQ> 

<PROCEDURE NAME> :: = 
PROCEDURE IQENTIFIER> 



<TYPEC PROCEDURE 
I CENT IF IE R> : : = 

<NON~TYP£D PROCEDURE 
IC£NTIFIER> : : = 

<FORMAL PARAMETER PART> 



<FORMAL PARAMETER LIST> 

<FORMAL ?ARAMETER> ::= 
PROCEDURE TYPE PART> : 

<FOR»MAL TYPE FART> :: = 
<TYPE PART> : := 

cTYPE VARYING PART> : : = 



<FORMAL PARAMETER DECLA 
RATION STATEMENT LIST> 



...KFORWARD DECLARATIONS... 
FORWARD <COHPCUND PROCEDURE HEAD> 



<PRQCEDUR£ H£AD> 

<FORMAL PARAMETER DECLARATION 

STATEMENT LIST> 

C8ASIC PROCEDURE H£AD> 
<Pr<OCEDURE TYPE PART>; 

<PROCEDURE NAME> 
cFORHAL PARAMETER PART> 

PROCEDURE <PRQCEDURE I0ENTIFIER> 

<TYPEO PROCEDURE IDENTIFIER> 
f <NCJN-TYPED PROCEDURE IQENTIFIER> 



<IOENTXFIER> 



<IDENTIFIER> 

<EMPTY> 
I (<FQRMAL PARAMETER LIST>) 

<FORMAL PARAMETER> 
I <FORMAL PARAMETERS 

<FORMAL PARAMETER LIST> 

<ID£NTIFIER> 

<EMPTY> 
I <FQRMAL TYPE PART> 

<TYP£ PART> 
I <TYPE VARYING P«RT> 

FIXED 
! CHARACTER <FIELD SIZE> 
f dIT <FIELD SIZ£> 

VARYING 
I BIT VARYING 
1 CHARACTER VARYING 



<EMPTY> 
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I <FORMAL PARAMETER DECLARATION STATEMENTS 
<FORHAL PARAMETER DECLARATION 
STATEMENT LIST> 



<FORMAL PARAMETER 
DECLARATION STATEMENT 



FORMAL <FORMAL £LEHENT> 
I FORMAL..VALUE <FORMAL ELEMENT> 
I <FORMAL PARAMETER DECLARATION STATEMENT^ 

<FORKAL ELENENT> 



<FORMAL ELEMENT> :: = (<FORMAL IDENTIFIER LIST>) 

^FORMAL TYPE PART> 
I <FJR>jAL IQENUFIER> 
<FORNAL TYPE PART> 

<FORMAL INOENTIFIER LIST> : := <FORMAL ID£NTIFIER> 

! <FORMAL IDENTIFIER LI5T>* 
<FORMAL IDENTIFIED 

<FORMAL IDENUFIER> : := ^COMPLEX ID£NTIFIER> 

I <VARYING ARRAY SPECIFIER> 

<COMPLEX IDENTIFIED ::= <SIMPLE IDENTIFIED 

I <ARRAY IDENTIFIER> 
<ARRAY 3OUN0> 

<VARYING ARRAY SPECIFIER> : := <ARRAY IDENTIFIER> 

<VARYING ARRAY BOt'ND> 

<VARYING ARRAY 80UNO :: = (*) 



Before a procedure may be cat led* SDL specifies that it must have 
been previously declared. A contradiction arises when one 
procedure calls another procedure which in turn references the 
first- In this case* whichever procedure appears first must 
necessarily contain at least one reference to the second which 
has not yet been declared- 



The <F0PWARD DECLARATION> allows the programmer to use recursive 
references by providing a temporary procedure declaration- The 
<F0RWARD DECLARATION* however, .does not eliminate the need for 
the nortal procedure declaration which must follow in the program 
and must have the same scope- 



The parameters mentioned in the <F0RWARQ DECLARATION must be the 



same formal parameters (in type and size* 
the procedure itself will declare. 



but not in name) that 
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Procedures may be either typed or non-typed depenaing on their 
use. Format data types may either be static or varying* aqain 
depending on the program* These specifications wilt be discussed 
in the section entitled "THE PROCEDURE STATEMENT". 



The f ot lowi ng 

DECLARATIONS 



examples illustrate the use of the <FQRWARD 



FORWARD PROCECURE X CHARACTER VARYING; 
FORWARD PROCEDURE J(K*L*rt); 

f0kmal k(*) 3it varying* 
lc15) character c8)* 
m fixed; 
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<USE STATEMENT : : = 



<SIMPLE IDENTIFIER 
LIST> :: = 



<SIMPLE ID£NTIFIER> 
<OEFINE IDENTIFIER> 



USE (<SIMPLE IDENTIFIER LIST>) 
OF ^DEFINE IDENTIFIER> 



<SINPLE IDENTIFIED 
I <SINPLE IDENTIFIER LIST>* <SIMPLE IDENTIFIERS 

<IDENTIFIER> 

<IDENTIFIER> 



The purpose of the <U SE STAT£MENT> is to allow the programmer to 
declare specific elements in a ce fined structure within a 
procedure. By specifying only the desired elements* the Name 
Stack size is kept to a minimum* ana program maintenance is 
simplified- The compiler will generate the structure using 
fillers and the specified elements. 

The following restrictions apply to the «USE STATEM£NT>: 

1. It must appear within a procedure (i.e.* on a lexic 
level greater than Q). 

2. The referenced <0EFINE IDENTIFIER> must define one 
structured declare statement* 

3. The structure may not contain arrays. 

4. The outermost level of the structure .( 31) must be a 
"DUMMY REMAPS". 



EXAMPLE: 



DEFINE X AS 

DECLARE 1 DU MM 1 REMAPS A* X MIGHT ALSO REMAP dASE 
02 3 BITC5)* 
03 81 8ITC2)* 
03 82 8ITC3)* 
02 C CHARACTERUO )» 
02 3ITCD* 
02 E FIXED* 
02 F 8ITC24 )#J 
PROCEDURE FIRST? 

USE (C*D) OF x; 
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From the above <U SE STAT£M£NT> the 
following structure: 



compiler will generate the 



BITC5), 

31TC2)* 

8 1 T C 3 ) p 

CHARACTEROO)* 

8ITC1)* 

FIXED, 

8IT(24>? 



Note that filler was substituted for the 
woula normally generate a syntax errorr and 
the <USE SMTEtfENT>. 



group item 8. This 
is allowable only in 
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PRO£FOURES 



<PROCE0URE STATErtENT> : : = 

^PROCEDURE DEFINITIQN> :: 

<SEGMENT STATEM£NT>::= 
<PROCEOURE 8Q0Y> :: = 



<PROCEOURE OEFINITIQN> 
I <SEGMENT STATEMENT 

<PROCEOURE STAT£MENT> 

<COHP0UN0 PROCEDURE HEAD> 
PROCEDURE 3GDY> 

SEE "THE SEGMENT STATEMENT" 

DECLARATION STATEMENT LIST> 

<PROCEDURE STATEMENT LIST> 

<PROCEDURE EXECUTABLE STATEMENT LISF> 

<PROCE0URE £NDING> 



Procedures are set f "con ta ined functional units within an SOL 
program which may be accessed according to specific rules 
discussed under "BASIC STRUCTURE OF THE SOL PROGRAM". Procedures 
may be created by preceding self-contained statements with a 
<COMP0UND PROCEDURE HEADS and terminating it with a <PR0CE0UR£ 
ENDINO. 



The ^PROCEDURE DEFINITION is composed cf three basic parts: 
heading* body* and ending. Identifiers declared in a procedure 
may be accessed only in the procedure in which they are declared* 
and in procedures nested within the declaring procedure. 



Procedures may be either "TYPED" or "NON-TYPED", A "TYPED" 
procedure returns some value of the type specified in the 
procedure declaration to the expression where the procedure was 
invoked. See "VALUE VARIABLES" for details. A "NJN-TYPED" 
procedure performs a function* does not return a valuer and is 
invoked in an <EXECUTE PROCEDURE STATEMENTS See "EXECUTE 
PROCEDURE STATEMENT". 
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PESQEQURf H£A2 



The syntax for the procedure heading is 



<CO<MPQUNO PROCEDURE 
HEAD> ::= 



<PR0C£0URE HEAD> 

<F0RMAL PARAMETER DECLARATION 

STATEMENT LIST> 



<PROCEDURE HEA0> ::= 



<8ASIC PROCEDURE HEA0> 
<PROCE0URE TYPE PART> 



<EASIC PROCEDURE HEA0> 



<PROCEDURE NAME> 
<F0R*AL PARAMETER PART> 



<PROCEDURE NAME> :: = 



PROCEDURE PROCEDURE IDENTIFIER> 
I INTRINSIC INTRINSIC iD£NTIFIER> 



<PROCEDURE IDENTIFIER> 



<TYP£D PROCEDURE IDENTIFIER> 
I <NON-TfPEO PROCEDURE IO£NTIFI£R> 



<TfPED PROCEDURE 
IC£NTIFIER> : : = 



<ID£NTIFI£R> 



<NON-TYP£D PROCEDURE 
IC£NTIFI£R> : : = 

<IMTRINSIC IOENTIFIER> 



<IDENTIFIER> 

<TYPED INTRINSIC ID£NTIFER> 
1 <NON-TYPED INTRINSIC ID£NTIFER> 



<TYPED INTRINSIC 
IC£NTIF1ER> : : = 



<ID£NTIFIER> 



<NON-TYPEO INTRINSIC 
IC£N riFIER> : : = 



<ID£NTIFIER> 



<FQRMAL PARAMETER PART> 



<EMPTY> 
I (^FORMAL PARAMETER LIST>) 



<FORMAL PARANETER LIST 



<FORMAL PARAMETER> 
I <FQRHAL PARAMETERS 
<FORMAL PARAMETER LIST 



<FORMAL PARAHETER> :: 
<PROCEOUHE TYPE P AR T> 



<10£NriFIER> 

<EHPTY> 

I <FORMAL TYPE PART> 



<FORMAL TYPE PART> 



<TYPE PART> 
I <TYPE VARYING PART> 



<TYPE PART> 



FIXED 



BURROUGHS CORPORATION 
COMPUTER SlTSTEHS GROUP 
SANTA BARBARA PLANT 



6-3 

COMPANY CONFIDENTIAL 

31800/BL700 SOL CBNF Version) (F) 

P.S. 2212 5405 

I CHARACTER <F IELD SIZE> 
I BIT <FIELO 5IZE> 
I REFERENCE 



<FIEL0 SIZE> ::= 
<TYPE VARYING PART> :: 



(<CONSTANT £XPRESSION>) 

VARYING 
I BIT VARYING 
I CHARACTER VARYING 



<FORHAL PARAMETER OECL 
RATION STATEMENT LIST> 



<EMPJY> 
1 <FORMAL PARAMETER DECLARATION STATEMENT 

list>; 

<fqrhal parameter declarati0n> 



<F0RMAL PARAMETER 
DECLARATION STATEM£NT> 



FGRHAL <FORHAL ELEMENT> 
I FORMAL_VALU£ <FQRMAL ELEMENT> 
I <FORMAL PARAMETER DECLARATION STATE*ENT># 

<FORMAL EL£rt£NT> 



<FQRNAL ELEMENT> ::= 



(<FORtfAL IDENTIFIER LIST>) 
<FORMAL TYPE PART> 
1 <FQRMAL IDENTIFIED 
<FORMAL TYPE PART> 



<FORMAL IDENTIFIER 
LIST> :: = 



<FORMAL ID£NTIFIER> 



<C0HPLEX IOENTIFIER> 



<FORMAL IDENTIFIER> 
1 <FORMAL IDENTIFIER LIST>> 
<F0RM4L IDENTIFIER> 

<CQ*PLEX IDENTIFIED 
f <VARYING ARRAY 5PECIFIER> 

<SIHPL£ IDENTIFIED 
I <ARRAY IDENTIFI£R> 
<ARRAY BO UNO 



<VARYING ARRAY 
SPECIFIED :: = 



<ARRAY IDENTIFIED 
<VARYING ARRAY 80UN0> 



<VARYING ARRAY 3QUND> 



CO 



The procedure heading* i.e..* <C0MPQUND PROCEDURE HEAD># contains 
the <PR0CE0UR£ NAM£>» fomal parameters (if any)* and the 
<PROCEDURE TYPE P4RT>» i.e.* the field type of the value to be 
returned if the procedure is "TYPED". For example: 
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PROCEDURE 
FORMAL 



X CH*N) fixed; 
(M*N) varying; 



which corresponds to the following syntax! 

PROCEDURE <TYPED PROCEDURE IDENTIFIER> 

(cFORMAL PARAMETERS <FORMAL PARAMETERS 
<PROCEDURE TYPE PARTS 
FORMAL (<FOR s «!AL 10ENT IF IER> * <FORM AL IDENTIFIERS 
<FQRMAL TYPE PART>; 



In this case* the value returned to the point of invocation 
should be fixed* There is* however* no check for this at compile 
time. If the control card option FQRHAL_CHECK is present* the 
returned values will be checked against the procedure type at run 
t i me . 



The "N0N-TYPED w procedure follows the same format except that the 
<PROCEDURE TYPE PART> is omitted since no value is returned. For 
inst ance*. 



PROCEDURE 
FORMAL 



a (j*k*d; 
j fixed* (k,l) 



on varying; 



which syntactically is the same as: 



PROCEDURE 



FORMAL 



<N0N-TYPED PROCEDURE ID£NTIFIER> 
(<F0R'UL PAR AMETERS<FORMAL PARAMETERS 
<F0RMAL PARAMETERS; 

<F0RMAL IDENTIFIER> <F0RMAL TYPE PARTS 
(<F0RHAL IDENTIFI£Rs<FGRHAL IDENTIFIERS 
<F0RMAL TYPE PARTS 



When a formal parameter is declared as FGR?fAL_V ALUE* the actual 
parameter will always be passed by value. See the section on 

ADDRESS and VALUE PARAHETERS. 



The field type of formal parameters (i.e.* components of the 
<F0RNAL TYPE PARTS may be static (BIT* CHARACTER* or FIXED) or 
variable COIT VARYING* CHARACTER VARYING* or VARYING). 



The <FIEL0 SI2£> must be 



a <C3NSTANT EXPRESSION (i.e.* 
expression whose value can be determined during compilation). 



an 
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Often however* it is impossible to determine the data type at 
compile time especially if the actual parameters are passed to 
the procedure from different points in the program and under 
differing circumstances. SOL allows the user to specify variable 
data fields in the formal declaration* The actual parameters 
passed to that procedure will provide the specifics. Thus 
formals may be declared as "BIT VARYING"* "CHARACTER VARYING"* or 
"VARYING". 



In a variable bit or character field* the type of data passed 
must be that which is specified (i.e.* BIT or CHARACTER). The 
length* however* remains variable. Formals specified as 
"VARYING" ^aay accept any type of data of any length. 



The data types of corresponding formal and actual parameters will 
not be checked at compile time and only at run time when 
FORMAL. CHECK has been specified as a control cara option. 



Varying formals may be remapped* but it is the programmers 
responsibility to ensure that the remapped formal parameter and 
its corresponding actual parameter match. * warning message will 
appear in the source listing where the remapping has occurred. 



SOL also allows formally declared arrays to have a variable 
number of elements by substituting "*" for the number following 
the <ARRAY IDENTIFIED. For instance: 



PROCEDURE X CA*6); 

FORMAL A (*) FIXED* 



3 {»> vahying; 



INTRINSIC HEAD 



The word "INTRINSIC" may be used interchangeably with the word 
"PROCEDURE". It is* however* intended only for use by the SOL 
group in order to provide SOL intrinsics. 



The use of "INTRINSIC" forces the intrinsic to 
point the displacement within a new segment. 



have as en tr y 
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PROCEDURE BODY 



The body of the procedure follows the heading. Included are 
declaration of local data (discussed under "THE DECLARATION 
STATEMENT"), nested procedures (also see "BASIC STRUCTURE OF THE 
SCL PROGRAM"), executable statements, and an ending. The syntax 
for the <PROCEDURE EXECUTABLE STATEMENT LIST> follows: 



<PROCEDURE BGDY> ::= 



DECLARATION STATEMENT LIST> 
PROCEDURE STATEMENT LIST> 
<PROCEDURE EXECUTABLE STATEMENT LIST> 
PROCEDURE £NDING> 



^PROCEDURE EXECUTABLE 
STATEMENT LI3T> : := 



PROCEDURE 

<PROCEDURE 
<PROCECURE 



EXECUTABLE 
EXECUTABLE 
EXECUTABLE 



STATEHENT> 
STATEHENT> 
STATEMENT LIST> 



<PROCEDURE 
STATEMENT> 



EXECUTABLE 



EXECUTABLE STATEHENT> 

<RET'JRN STATErtENT> 

<SEGMENT STATEHENT> 

<PROCE0URE EXECUTABLE STATEMENT 



The <EXECUTABLE STATEH£NT>s will be discussed ir the section 
entitled "EXECUTABLE STATEMENTS". As indicated by the above 

syntax, executable statements within a procedure may be 

segmented. However, a procedure must end in the saaie segment in 
which it begins. For other segmentation restrictions see "THE 
SEGMENT STATEMENT". 



The syntax for the <RETURN STATEHENT> is: 
<RETURN STATENENT> ::= 



<TYPED PROCEDURE RETURN STATMENT> 
I <N0N-TYPED PROCEDURE RETURN STATEHENT> 



<TYPED PROCEDURE 
RETURN STATMENT> :: = 

<N0N-TYPED PROCEDURE 
RETURN STATEMENT : : = 



RETURN <EX?R£SSI0N> 



RETURN 
I RETURN AND ENABLE INTERRUPTS 



The <RETURN STATEMENT> takes one of two forms depending on 
type of the procedure encompassing it. If the procedure is 
"TYPED", an <EXPRESSION> roust be returned to the point of 
invocation. In a "NON-TYPED" procedure, only a siffple return 

needed. For expression specifications 
enti tied "EXPRESSIONS 



and "PRIMARIES' 



r ef er to the 



the 



1 s 
sect ion s 
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Type checking on a <RETURN STATEHENT> is dene only at run time 
when FORMAL. CHECK appears as a control card option. 



Within any given procedure (at any lexic level)* certain 
statements are nested within other statements and are accessed* 
much like a procedure* by an address generated by the larger 
statement. The most general nesting level is zero* and the 
nesting level of any statement appears on an SDL listing under 
the column "NL". The most common instance of statements 
occurring at Nesting Level 1 or greater are: 



1. The conditionally executed statements following 
"THEN- and "ELSE- in the <IF STATEMENTS 

2. Statements contained within a <CAS£ STATEMENT>. 

3. <D0-GR0UP>s. 



If the compiler cannot find a <RETURN STAT£MENT> on KL C* it will 
generate one directly preceding the <PR0CEDURE ENDING>. This is 

merely a safety measure to insure that a procedure can always be 
properly exited. 



A compiler-generated return works essentially in the same manner 
as an explicit return. in a non~typed procedure* control is 
returned to the point of the procedure's invocation. In a typed 
procedure* the following values are returned. 



If the procedure is typed 

3IT 

CHARACTER 

FIXED 

3IT VARYING 

CHARACTER VARYING 

VARYING 



the compiler will return: 

BITS CONTAINING 

OF LENGTH SPECIFIED 

BLANKS OF LENGTH SPECIFIED 

FIXED ZERO 

8-BITS OF ZERO 

ONE BLftNK 

FIXED ZERO 



RETURN_ANO_ENABLE_INTERRUPTS is for MCP use only. It will cause 

a normal procedure exit to take place* and will enable interrupts 
as well. 
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f!iO££UU«£ EASING 



The <PRQCEDURE ENDING> is the final statement of a procedure* and 
the syntax is: 



PROCEDURE ENCING> :: = 



ENO 
I ENO PROCEDURE ICENTIFI£R> 



The identifier following the reserved word "END" is optional. 
Its sole purpose is to simplify the documentation of the program. 
If an identifier is supplied by the user* the compiler will 
perform a syntax check to guarantee that the <PR.0C£DURE EM0ING> 
is appropriately placed. 
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ASSIGNMENT SJATEMENIS AND EXPRESSIONS 



ASSIGNMENT STATEMENT> 

<ADORESS VARIABLE> ::= 
<REPLACE> : : = 
<EXPRESSI0N> ::= 

<STRING EXP3E5SI0N> : : 



<OR-ING OPERATOR> : : = 
<LOGICAL FACTCR> ::= 

<LOGICAL S£CQNDARY> : 
<LOGICAL PRIMARY> : : = 



«RELATION> 



<ARITHH£TIC 

EXPRESSION 



<A00ITIVE QPERATOR> 
<TERfc>: : = 



<MUL TIPLICATI VE 
UPERATOR> ::= 



<AOORESS VARIA8LE> 

<R£PLACE> 

<£XPRESSION> 

SEE "ADDRESS VARIABLES 



<STRING EXPRESSION 
t <STRING EXPRESSION 
CAT (EXPRESSION 

<LOGICAL FACTOR> 
! ^LOGICAL FACTOR> 
<OR-ING OPERA TOR > 
<STRIWG EXPRESSION 



OR 



I EXOR 



<LOGIC*L SECONOARY> 
I <LOGICAL SECQNDARY> 
AND <LOGICAL FACTON 

<LGSICAL PRIMARY 
I MOT <LOGICAL PRIMARf> 

ARITHMETIC EXPRESSION 

1 ARITHMETIC EXPRESSION 
<RELATION> 

ARITHMETIC EXPRESSION 

< j <= | = | /= | >= | > | 

LSS I LE3 I EQL I NEQ 
GEO I GTR 



<T£RM> 
1 <TERM> 

<4D0ITIVE QPER4T0R> 
ARITHMETIC EXPRESSION> 

♦ I - 

<SIGNED PRI«ARr> 
1 <SIGNEO PRIMARY> 

MULTIPLICATIVE OPERATON 
<TERM> 



* I MOD I / 
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<SIGNED PRIMARY> 



<PRIMARr> 
I <UNARY GPERATQR> 
<PRIMARY> 



<UNARY OPERATGR> ::= 



♦ 1 - 
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The following is a list of the SOL 
precedence to lowest. This list or the 
used when evaluating an expression- 



operators from highest 
table in Figure 3 may be 



«• » - (<UNARY OPERATORS 

** /* MOO 

*r - (<ADDITIVE GPERAT0R>) 

NOT 

AND 

0R» EX0R 

CAT 



1. 



2. 



The assignment operator has higher precedence than 
an/ operator to its left and lower precedence than 
any to its right. 



The order of evaluation of operators having 
precedence is always from left to right. 



equal 
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P. 



NEC 
* 

4- - 

NOT 

AND 

OR 

CAT 



NEG 



+ - 



PRESENT 


OP. 








OT AND 


OR 


CAT 


: = 


( 


< > 


> 


> 


< 


< 


< > 


> 


> 


< 


< 


<: > 


> 


> 


< 


< 


< > 


> 


> 


< 


< 


> > 


> 


> 


< 


< 


< > 


> 


> 


< 


< 



ET 



C 
) 
£T 



FORMULA : 



PRECEOtNCE <P*<EVI0US 0P> <*ELATION> PRECEDENCE <P9ESENT 0P> 



NOTE: 



NEG 



BT 
ET 



UNARY OPERATORS 
MULTIPLICATIVE OPERATORS 
RELATIONAL OPERATORS 
REPLACE OPERATORS 
INFERRED BEGINNING TERMINATOR 
INFERRED ENDING TERMINATOR 



Fig 3« Operator Precedence Table 
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The unary operator acts upon one operand and may never appear as 
an infix operator between two operands. It may appear to the 
right of any other operator* including itself. 

The UNARY MINUS (-) generates the two's complement of the operand 
associated with it (i.e.* -X = (NOT X)«-i). The operano may be 
any data type. If it is fixed* the UNARY MINUS has the effect of 
reversing the sign* and the result is labeled on the Evaluation 
Stack as fixed. 



If the operand 
low* order 2 4 bits 
will be padded 
complement of the 
as t ype f i xed. 



is either a character or bit string* only the 
will be evaluated* Strings less than 24 bits 
with leading zeroes to 24 bits. The two's 
string is generated and returned to the stack 



The SDL compiler generates no code for the unary plus (+) which 
exists solely for the convenience of the programmer. 



ARIIHMEIIC OPEtiJIORS 



* 

HOD 

/ 



Addi t i on 

Subtraction 

Multiplication 

Division yielding integer 

Division yielding integer 



va lue 
va I ue 



of 
of 



r ema i nder 
quo t i ent 



The arithmetic operators perform 24-bit arithmetic on two 
operands of any of the three data types. Sign analysis will be 
done only if both operands are fixed. With any other combination 
of data types* the magnitudes of the operands are evaluated. 
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For both bit and character data* if the field is greater than 24 
bits* only the low-order 24 bits will be evaluated- If the field 

is less than 24 bits* leading zeroes will be supplied from the 
left . 



A 24-bit result will be returned to the Evaluation Stack. If 
both operands are fixed* the result will be fixed. Otherwise* 
the result will be type bit* 



SDL division results in an integer value 
t runcated thus* 

7/3 = 2 
3 / 7 = 



Any remainder is 



Note this means that w * w and " / w do not associate. 
CA * B) / C does not equal A * (8 / C). 



In gener al * 



The MOD operation is division resulting in the integer value of 
the remainder. It is evaluated by the following formula: 

Y MOO I = Y-(Z*(r/Z)) using integer division explained above. 

For example: 

7 MOO 3 " 7-<3 * 2 J = i 

-7 MQO 3 = -?-C3*C-2)) = -I 

3 MOO '7 = 3-CC-7)*C-Q)) = 3 

-3 MOO '7 - t-3)-<C-7> * 0) = -3 

Note: For negative arguments* this definition is not the same as 
the traditional definitions from mathematics. 



Jj£L4.HQNAL 0P££iII2RS 





EQL 


EQUAL TO 




/ = 


NEQ 


NOT EQUAL TO 




> 


GTR 


GREATER THAN 




< 


LSS 


LESS THAN 




> = 


GEQ 


GREATER THAN 


OR EQUAL TO 


< = 


LEO 


LESS THAN OR 


EQUAL TO 



BURROUGHS CORPORATION 
COMPUTER SYSTEMS GROUP 
SANTA BARBARA PLANT 



B1800/B1700 



7-7 

COHPANY CONFIDENTIAL 

SOL (BNF Version) CF) 

P.S. 2212 54C5 



The relational operators do a comparison between two operands of 
any data type. A 1-bit result is returned -- 3(1)13 if the 

condition is true* 3(1)03 if the condition is false- 



true s i gned 
shorter one 



If both operands are fixed* the operator does a 

compare. If both operands are character strings* the 

is padded on the right with blanks* and a character by character 

magnitude compare by collating sequence is done* 



For all other operand combinations* leading zeroes are supplied 
to the shorter of the two. No sign analysis is done* and 

operands are treated as positive magnitudes. 



LUSICAL QPERAXORS 

NOT 
AND 
Oft 
EX OR 



The logical operators perform a bit by bit analysis on all three 
data types. NOT is considered to be a unary operator* and may 
appear to the right of any other operator (including itself). 



The other operators require two operands. The shorter of the two 
is padded on the left with zeroes to duplicate the length of the 
larger. The following chart illustrates the use of each 
oper ator . 



IF X = 

IF Y = 
NOT X = 

NOT r = 

X ANO y = 

X OR Y = 

X EXOR Y = 






Q 


I 


1 




1 


1 
1 






1 




1 





1 











o 


I 





I 


I 


I 





1 


1 
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E££L!CE OPERATORS 



<A5SIGfoMENT STATEMENT 



<ADORESS VARIBLE> 

<REPLACE> 

<EXPRES5I0N> 



<REPLACE> 
<A55IGN0R> 



<ADORESS VARIABLE> 
<N0N-DE5TRUCTIV£ REPLACE> 
<EXPRES5I0N> 



<NON-DESTRUCTI\/E 
ftE?LACE> ::= 



<REPLACE* DELETE LEFT PART> 
I <REPLAC£* DELETE RIGHT FART> 



<REPLACE* DELETE 
LEFT PART> ::= 

<R£PLACE* DELETE 
RIGHT PART> : : = 



NOTE: <REPLACE* DELETE RIGHT PART> syabol 
as the BNF definition symbol. 



= " is the sam e 



There are two basic types of replace operators: The destructive 
<REPLACE> associated with the <AS5IGNHEfcT STATEMENTS and the 
<NON-OESTRUCTIVE REPLACE> which occurs only within an expression. 



The destructive <REPL4C£> operator causes the expression on its 
right to "REPLACE" the variable on its left. The Evaluation 
Stack is flushed since this replace is necessarily the last 
operation in the statement. 



The <NON-DESrRUCTIVE REPLACE> takes two forms: -DELETE LEFT" and 
"DELETE 3IGHT". The "DELETE LEFT" causes the expression to the 
right of the operator to replace the variable on its left. The 
variable is then deleted from the top of the Evaluation Stack* 
and the expression is left on the top of the stack. 



The "DELETE RIGHT" causes the same replacement. However* the 
expression to the right of the operator is deleted from the 



Evaluation Stack* 
of the stack • 



and the variable to the left remains on the top 
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The following example illustrates the use of the <NON-DESTRUCTI VE 
REPLACE>: 



PROCEDURE GOOD BIT VARYING; 
DECLARE X 3ITC48)* 
RETURN X ::= "RESULT"; 

END good; 

procedure bad bit varying/ 
declare y bitc48); 
return y := "result"; 

end bad; 



PROCEDURE GOOD will execute properly since X* declared as bit* is 
associated with the procedure type--bit varying. Notice* 
however* that in PROCEDURE BAD* 1 is deleted from the stack and 
the character string "RESULT" remains. Unless the control card 
option FORMAL. CHECK is set at compile time* there will be no 
indication that the data types Cas in PROCEDURE BAD) do not match 
the procedure type. If FORMAL. CHECK is specified* the following 
execute time error message will be printed: 

"TYPE ERROR IN RETURNED VALUE" 



If both operands associated with any replace operator are 
character fields* and the receiving field is longer than the 
sending field* trailing blanks will be added. If the receiving 
field is shorter* characters will be truncated from the right. 

With every other combination of data types* when the receiving 
field is not equal in length to the sending field* leading binary 
zeroes will be appended to the larger receiving field* or 
high-order bits are truncated from the larger sending field. 



Inconsistant results may be obtained in cases such as 
A:=SUBSTR (A, 2*5) 



(i.e.* where the sending field and the receiving field are simple 
primaries less than ZU bits apart). This problem can be avoided 
by enclosing the SUBSTR in parentheses. 

A:= (SU3STRC A, 2, 5) ); 
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Also see the reverse store operation 
"EXE CUTE -FUNCTION STATEMENT". 



in the section entitled 
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CQNCATENAIIJ3N 



Data items may be linked together (concatenated) by using the 
TAT" operator- Although this operator is intended to 

concatenate bit strings or character strings* it may be used witn 
any combination of data types- The result of any concatenation 
may not be greater than 8*191 characters or 65*535 bits. 



If all the operands 
character string. For 
result is a Pit string. 



are character strings* the result is a 
any other combination of data types* the 
For exampl es 



LET 



THEN 



8 = 3(1) 1013 
C = 10 

B CAT 8 = 3(1)1011013 

A CAT A = "BB" 

A CAT 8 = 3(1)110)00101013 

8 CAT C = 3(3)5000000123 



1 CHARACTER 
3 8ITS 
FIXED 

BIT STRING* LENGTH 6 
CHARACTER STRING* LENGTH 
BIT STRING* LENGTH 11 
8IT STRING* LENGTH 27 
(EXPRESSED IN OCTAL) 
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PRIMARY ELEMENTS OF JHE EMPRESSIjQN 



<PRIMARY> 



<C0NST4iMT> 

1 <VARIA8LE> 

I (<EXPRESSION>) 

I <C'ONOITIONAL EXPRESSION 

I <CASE EXPRESSIONS 

1 <BUMPOR> 

I <OECREMENTQR> 

I <ASSIGNOR> 



<VARIA3LE> 



<AOORESS VARIABLE> 
! <VALUE VARIA9LE> 



A primary is the most basic component of the SOL expression- To 
avoid unnecessary repetition* see "BASIC COMPONENTS OF THE SDL 
LANGUAGE" for discussion of constants' and see "ADDRESS 

VARIABLES" and "VALUE VARIABLES" for discussion of variables. 



CQMOITIOfcAL OBSESSION 
^CONDITIONAL EXPRESSION : 



= IF <£XPHESSION 
THEM <EXPRESSION> 
ELSE <EXPRESSION> 



The expression following the reserved word "IF" is evaluated- If 
the low-order bit of the result is 1* the expression following 
"THEN" is evaluated. Otherwise* the expression following "ELSE" 
is evaluated. Unlike the <IF ST ATErtENT>* the "ELSE" part of the 
expression aiust be present- 
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<CA5E EXPRESS ION> : : = 



EXPRESSION LIST> : : = 



CASE <EXPRESSION> 

OF Aexpressionlist>J 

<EXPRE5SIQN> 
<EXPRESSIQN>, 

EXPRESSION LIST> 



In the <CASE EXPRESSIONS the value of the <EXPR£SSION> following 
the reserved word "CASE** is used as an index into the list of 
expressions. The expression thus selected is evaluated* and the 
other expressions in the list ignored. The range of the index is 
from zero to N-l# where M is the number of <EXPRESS [QN>s in the 
list- An example of an ^ASSIGNMENT STATEMENT> containing a <CASE 
EXPRESSION follows: 



A:=CA5E I OF ( 4*3, A-B# A*8* A/8, A MOD B) + 
CASE J QF (Q*F-6# 9* 34+B# (A+3) HOD 9* C) 



if 1=2 and J=3> the statement will be evaluated as follows 

A:=(A*8) ♦ CA+3) H09 a; 



3UMP 



<BUHP0R> ::= 



<M00IFIER> 



8UiMP <A00RESS VARIA3LE> 
<MQDIFIER> 

<£MPTY> 
f 8r EXPRESSION 



BUMPOR leaves on the Evaluation Stack* a descriptor of the 
variable which has been incremented by the value of the modifying 
EXPRESSION. If <MC0IFIER> is EMPTY>„ then the variable is 
incremented by I. The results of the following expressions 
(where A is an <ARRAY IDENTIFIERS are equivalent: 

BUMP A(X+r) BY N 

ACX + Y) : := ACX + Y) + N 
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The advantage of using <8UtfP0R> is that the code for putting the 
descriptor on the stack is executed only once. Thus it is more 
efficient- 
Like any variable* (<8UNPQR>) will cause a value to be loaded to 
the top of the stack. Hence: 

PC8UMP X BY C-0); 
passes X by address but* 

PCC8UMP X 8Y C-0)); 
passes X by value. 



<QUMP0R> operates on all three data types. Character strings are 
treated as if they were bit strings. For fields greater than 24 
bits* only the low- order 2 4 bits are evaluated. If the field is 
less than 24 bits* it is oadded with leading zeroes to 24 bits. 
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<DECREMENTOR> 



DECREMENT <ADDRESS 
<MOOIr"IER> 



tfARI A6LE> 



<MODIFIER> ::= 



<EMPTY> 

BY <EXPRESSIOM> 



The <CECREMENTOR> works exactly like <8UMP0R> except that the 
variable is decreased by the value of the <EXPRESSIGN>. See 
abov e* 



ASSIGNOR 
<ASSIGN0R> ::= 



See REPLACE OPERATORS in Chapter J 
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ADDRESS VARIABLES 



<ADORESS VARIA6L£> ::= 



CSIMPLE VARIAELE> : : = 
<5IMPLE IOENTIFIER> : :■■ 
<SUBSCRIPTED VARIA8L£> 
<ARRAY IDENTIFIER> :: = 



<SItfPLE VARIA3L£> 
I <SU8SCRIPIED VARIABLE> 
I <INQEX£D VAf<IASLE> 
I <AOORESS-GENERATIftG FUNCTION OESIGNATOR> 

<SIMPLE IDENTIFIER> 

<IOENTIFIER> 

<ARRAY IDENTIFIERX<EXPRESSI0N>) 
<IDENTIFIER> 



As noted above* <ADDRESS VARJA8LE>s may take the form of a 

<SIMPLE IDENTIFIERS or an <ARRAY ID£NTIFIER> followed by an 

C <EX PRESS I0N> ) designating the array element in question. In 
addition* simple and array identifiers may be indexed. 



INDEXING 



<INO£XED VARIABLE> 



<INQEX PART> ::= 



<SIMPLE I0ENTIFIER> <INDEX PART> 
! <ARRAY I0ENTIFIER> <IND£X PART> 

KEXPRESSION LIST>3 



Each of the expressions in the <INDEX PAHT> is evaluated* and the 
sum of these is formed. This will be called the index. 



The indexing operation occurs functionally as follows: 



1. The simple or array descriptor is loaded to the top 
of the Evaluation Stack. 

2. If the descriptor is an array descriptor* then it is 
converted to a simple descriptor which describes the 
first (zero) element of the array* 

3. The address field of the descriptor is modified by 
adding to it the index. 
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Note that self-relative data items (i.e.* data items whose length 
is not greater than 24* which are not in a structure* and which 
do not remap some other data item) »ay not be indexed. 



There are two methods of indexing: 



1. 



Exampl e: 



The descriptor provides the address* and 
provides the offset from this address. 



the index 



The descriptor provides the offset* and the index 
provides the address. 



: N 8ITS : 5 8ITS : 2 : 3 : 

< — -C-- — ><0-><E-> 
< A y 



Field may be accessed using either method (1) 
Assume N contains the offset to 8. 



or method ( 2 ) 



Method (1): 



0E CLARE 
01 



/* 



N 
X 

THE 



X I 



GIVEN BY 
DC Ni; 



A BITC5Q0G)* 
C2 3* 

03 C 
03 
03 E 
8ITC24), 
BITC2); 

NEXT STATEMENT 
N) INTO X 



8IT<5), 
BIT(2)» 
8IT(3)> 



WILL 
* / 



MOVE (WITH THE OFFSET 
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Method C2)s 



DECLARE 

A 8ITC5Q00), 
01 83 REMAPS 8ASE* 
02 CC 8IT(5), 
02 DO BITC2), 
02 EE BIT(3)» 
N 9ITC2A), 
X BITC2); 
/* THE NEXT STATEMENT WILL MOVE 
CWITH THE OFFSET GIVEN BY N) 
X I ODCN* DATA ADDRESS(A)]; 



DO 
INTO 



X */ 



Note the f o 11 owi ng: 

!• The structure above* cosrprised of BB> CC» DO* and £E* 
which remaps base is called a "teiBplate" . 

2. This template may be applied to any data area merely 
by providing the address as part of the index. This 
is not the case when methodCl) indexing is used. 

3. The example above is contrived ■"in method (2)» if H 
contained the address of B rather than the offset to 
8 from the beginning of A# then the statements which 
store D into X would be identical: X i DDCNJ; 



BURROUGHS CORPORATION 
COMPUTER SYSTEMS GROUP 
SANTA BARBARA PLANT 

AOORESS GENERATING FUNCTIONS 



B18Q0/B1700 



COHPANY 

SDL (BNF 

P 



8-8 

CONFIDENTIAL 

Version) (F) 

,S. 2212 5405 



<ADDRESS-G£NERATING 
FUNCTION DESIGNATOR 



<SU3-STRING ADDRESS DESIGNATOR> 
<FETCH COHMUNICATE MESSAGE 
POINTER DE5IGNAT0R> 
<OESCRIPTOR DESIGNATOR> 
DESCRIPTOR -GENERATOR DESIGN A T03> 
<ADDRESS-?40DIFIER OESIGNATOR> 
NULL 



SUBMIT AND SUBSIR 



<SU5-STRING ADDRESS 
CESIGNATQR> : : = 



<SU8-STRING FUNCTION 
IDENTIFIED : : = 

<STRING ADDRESS> ::= 

<AODRESS GENERATOR> :: 

<QFFSET PART> ::= 

<LENGTH PART> :: = 



<5U3-STRING FUNCTION IDENTIFIER> 
(cSTFING ADDRESS>, <0FF5ET PART>) 
I <SU8-STRING FUNCTION IDENTIFIER> 
C < STRING ADDRESS >, <OFFSET PART>, 
<LENGTH PART>) 



SU8BIT 1 SU3STR 

<ADDRESS GENERATOR> 

SEE "ADDRESS GENERATOR" 

<EXPRESSION> 

<£XPRE55ION> 



SUBSTR yields a sub-string of a character string identified by 
the <STRIN3 ADDRESS>. The beginning character of the sub-string 
is specified by the <OFFSET PART> (where the first character of 
the string is zero). The <LENGTH PART> specifies the tength of 

the sub-string. If omitted* the rest of the string from the 

"OFFSET" character is assumed. For example: 



If 



X = 

C = 



CHARACTER' 
COALITION' 



then 

5UBSTR(X«>A) := SU3STR ( C* Q, A ) 
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yields the character string 
"CHARCOAL w 



Like all character-to-character store operations* if the 
receiving field is larger than the sending field* the sending 
field is padded with blanks on the right. If the sending field 
is longer* characters are truncated from the right. Note that 
this is a function of the store operator and not substr. 



SU38IT yields a sub-string of a bit string identified by the 
<STRING A0DRESS>. The beginning bit of the sub-string is 
specified by the <0FFSET PART> (Notes The first bit of the 
string is 0). The length of the sub -string is specified by the 
<L£NGTH PART> which* if omitted* will be assumed to be the rest 
of the string. 



EXAMPLE: 



If A = 3(1)00101011013 
= 3(1)000011110 13 

th en 

SUB8ITC A, 2, 3) CAT SUBBIT(9f5) 
resu Its i n; 

3(1)101111013 
and 

SUB8IT(A»3) CAT SUB BIT ( *0 * 6) 
resul ts in: 

3(1)01011010000113 
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<FETCH COMMUNICATE MESSAGE 
POINTER OESIGNATOR> ::= 



FETCH COMMUNICATE M5G PTR 



See the 317C0 MCP Reference Manual for a description of the run 
structure. 



If the RS_MCP_9IT is set* then RS.COfHUN ICATE_MSG_PTR is 

accessed- Otherwise* ft S_REINST A TE_*!SG_PTR is accessed. The 

accessed field is assumed to be a descriptor and is placed on the 
top of the Evaluation Stack. 



EXAMPLE 



DESCRIPT0RCCOMW MSG) := 
VALUE. OESCRIPTORCFETCH COMMUNICATE HSG 



PTR); 



C0MH_M5G now describes the communicate message* assuming that the 
message was described by a non" sel f -rel at i ve descriptor. 



£L$CJR1PI0RS 



DESCRIPTOR OESIGNATOR> 



DESCRIPTOR 

DESCRIPTOR 



(<5INPLE IDENTIFIER*-) 
(<ARRAy IDENTIFIER>) 



"DESCRIPTOR'* places on the Evaluation Stack* a descriptor which 
describes the descriptor of a <SIMPLE IDENTIFIER> or an <ARRAr 
IDENTIFIERS The descriptor function may appear as the object of 
a replacement* thereby providing easy access to any part of a 
descriptor. 



EXAMPLE: 



1. SU88IT<DESC3IPT0RCX)*4*2) := 2; 

2. DESCR IPTOR(X) := DESCRI PT0R( r ); 



BURROUGHS CORPORATION 
COMPUTER SY5TEHS GROUP 
SANTA BARBARA PLANT 



813 00/81700 



8-11 

COMPANY CONFIDENTIAL 

SDL (BNT Version) CF) 

P.S. 2212 5A05 



Example (2) forces both X and Y to describe the same 
data name- Note*' however* that if X and Y are not 
either both simple items or both arrays* the result 
will be incorrect • 



£Ai$E_DE5CRIPTQR 



< CES CR I PTOR -GENERATOR 
0ESIGNAT0R> : : = 



MAKE DESCRIPTORC <EXPRESS I 0N> ) 



The value which is generated by the <EXP«ESSICN> is assumed to be 
a descriptor. This descriptor replaces on the Evaluation Stack* 
the descriptor representing that <EXPR£SS I0N>. If the name-value 
bit of the expression's descriptor on the Evaluation Stack is 
set* then the value of the <EXPR£SSI0N> is removed from the Value 
St ack • 



A DESCRIPTOR GENERATOR 0ESIGNAT0R> may appear as the object of a 

replacement* however the programmer is responsible to see that 

the descriptor built generates an address* There is no syntax 
check for this- 



The following examples illustrate the relationships between the 
descriptor functions: 



DESCRIPT0R(X)=VALUE_0ESCRIPT0R(X)* 
where X is non-sel f- relat i ve 



MAKE.OESCRIPTOR ( OESCR I PTOR C X > ) = X* 
where X is non-sel f- relat i ve 



MAKE_DESCRIPT0R C V AL?JE_D£ SCRI P TOR ( E) ) = £* 
where E is an <AD0R£SS GENERATOR 



VALUE_QESCRIPTOR ( M AKE_D£ SCRIP TOR C E ) ) = E* 

where the value oT E is a valid <AD0R£SS GENERAT0R> 
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<ADDRESS-MODIFIER 
C£SIGNATOR> : := 



<ADORESS-*ODIFIER FUNCTION IDENTIFIER> 
(<SIMPLE IO£NTIFIER>) 



<AOORESS-MOOIFIER 
FUNCTION I0ENTIFIER> 



NEXT_ITEM 
I PREVIOUS ITEM 



The NEXT_ITEM function causes the length field of the descriptor 
represented by the <SIrfPLE I3ENTIFIER> to be added to the address 
field of that descriptor* This modified descriptor is put back 
onto the Name Stack* and also loved to the top of the Evaluation 
Stack. Hoving the modified descriptor to the Evaluation Stack 
is* in effect* a load address of the new iteir described by the 
<SIMPLE IDENTIFIERS Hence* "NEXT_ITEH" may be used as the 
object of a replacement. For example* the following statements: 



DECLARE 1 CHAR_STRING CH AR ACTER C I 000 ) * 

02 NEXT CHAR CHAR ACTER CI ) ; 
NEXT ITEM (NEXT. CHAR) l"D w ; 



have the effect of storing 
CHAR_STRING* which is: 



into the second character of 



SU8STR(CHAR_STRING*1*1) ; 



The PREVI0US_ITEH function is identical to N£XT_ITEM except that 
a subtraction Cof length from address) is performed. 



NULL 



This function generates an address of type character with zero 
length. A store into this address is essentially a no-op. NULL 
is used primarily in conjunction with the REFER statement. 
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<AQDRESS 

GENERATOR LIST> : : = 



<ADDRESS GENERATOR> : : = 



<8UMP0R> ::= 
<DECREMENTOR> : :^= 

CONDITIONAL ADDRESS 
GENERATOR> :: = 



<ADDRESS 
<ADDRES5 
<AODR£SS 



GENERATOR> 
GENERATORS 
GENERATOR LIST> 



<ADDR£SS VAiRIABLE> 

<8UHP0R> 

<DECREWENTOR> 

CONDITIONAL ADDRESS GENERATOR> 

<CASE ADDRESS GENERATQR> 

<ADDRESS-GENERATING ASSIGNOR> 

See "BUMPOR" 

See "QECREMENTOR" 



IF <EXPRESSION> 

THEN <ADOR£SS GENERATOR> 

ELSE <ADDRESS G£NERATOR> 



<CASE ADDRESS 
GENERATOR> :: 



<ADDRE5S-GENERATING 
ASSIGNUR> : := 



CASE <EXPRESSION> 

OF <<ADDR£S5 GENERATOR LIST>) 



<ADDRESS VARIABLE> 
REPLACE* DELETE LEFT PART> 
<AD0RES5 G£NERATOR> 
<ADDRESS VA«IA8LE> 
REPLACE* DELETE RIGHT PART> 
<EXPRES5I0N> 



The <AD0R£5S G£N£RATQR> includes any primary which leaves an 
address on the top of the Evaluation Stack. See "PRIMARY 
ELEMENTS OF THE EXPRESSION" for more explicit detail. 
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VALUE VARIABLES 



<VALUE V4RIA8LE> ::= 



<FILE DESIGNATOfi> : : = 



<TYPED PROCEDURE 
DESIGNATOR> : : = 



<TYP£D PROCEDURE 
ICEMTIFIER> : : = 

<ACTUAL PARAMETER PART> 
<ACTUAL PARAMETER LIST> 

<ACTUAL PARAHETER> :: = 

<ARRAY D£SIGNATOR> ::= 
<ARRAY IDENTIFIED :: = 



<YALUE-GENERATING FUNCTION DESIGNATOR> 
! <TYPED PROCEDURE DESIGNATOR> 
1 C<AOORESS VARIA3LE>) 
I <FILE D£SIGNATOR> 

<FILE IDENTIFIER> 
I <SWITCH FILE IDENTIFIERX <EXPRES S I ON> ) 



<TYPEO PROCEDURE IDENTIFIER> 
<ACTUAL PRAMETER PART> 



<IDENTIFIER> 

<EMPTY> 
I (<ACTUAL PARAMETER LIST>) 

<ACTUAL PARAMETER> 
1 <ACTUAL PARAWETER>* 

<ACTUAL PARAMETER LIST> 

<EXPRESSION> 
1 <ARRAY OESIGNATOR> 

<ARRAY IDENTIFIED 
<ID£NTIFIER> 



Notice from the above syntax that any <ADDRESS VARIA6LE> enclosed 
in parens* such as CSU8BIT <A#I#J))* will be treated as a value 
vari able. 



The value generated by a <F ILE OESIGNATOR> is the FP3 number of 

the specified file. A warning message will be issued when a 

<FILE C£SIGNATOR> is used as a value* i.e.* not in an I/O 
s tat anient • 
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II££D ££0£LQUR£5 



The TYPED procedure (a procedure which returns a value) is 
invoked within an expression according to the above syntax. The 
procedure identifier* followed by its parameters (if any)» 
enclosed within parens* is treated as an operand in the 
expression. For details on passing par aireter s* see ADDRESS AND 
VALUE PARAMETERS. The procedure is evaluated and the returned 
value replaces the <TYPEO PROCEDURE DESIGNATORS For example: 



DECLARE Z FIXED; 
PROCEDURE X(4*8) FIXED; 
FORMAL (A, 8) FIXED; 



END x; 

Z z- X(6UMP 



M*R>+1 ; 



MHiESi MO iiALUE PARAMETERS. 



Actual parameters may be passed to a procedure either by address 
(which passes the address of the actual parameter) or by value 
(which passes a duplicate copy of the actual parameter). 

If an <ACTUAL PARAMETER> (See VALUE VARIABLES ana 
EXECUTE-PROCEDURE STATEMENT) is passed by address* then any 
change to the corresponding <F«JRMAL PARAHETER> in the procedure 
will result in a change to the original value of the < ACTUAL 
PARAMETERS 



If a parameter is passed by value* then only the duplicate copy 
of the <ACTU4L PARAMETER> can be changed. The original value 
remains unaltered* and the duplicate copy is erased when the 
procedure is exited. 



An <ACTUAL P*RAMETER> may be any expression or an <ARRAY 
IDENTIFIERS SDL has specified that array identifiers may only 
be passed t)y address. An array element* however* may be passed 
either by address or by value. 
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Expressions nay be divided into two groups: 



1- Those which may be passed either by address or by 
value* and 



2. 



Those which may only be passed by value 



An <ADDRESS GENERATOR> is passed by address unless it is enclosed 
within parentheses* or unless the formal parameter to which it 
corresponds has been declared as FORM 4L_V 4LUE. In these two 

cases <ADDRESS GENERAT0R>s will be loaded by value. All other 

expressions are loaded by value only. 



Examples of parameters passed by address: 

PC6UMP X* A) 

PCECBUMP M), SU8BIT(X,5)) 

P(N£XT_IT£M<3)> A:IC+D) 

Examples of parameters passed by value: 

PCC3UMP X), CA), 3 ) 
PC C8C3UMP H) )» A*B ) 

PCSWAPCA*0>* CSUBSTRCA»5»3))) 



IMUfL GENERiUNG FUNCJIONS 



<VALUE-G€NERATING 
FUNCTION DESIGNATQR> 



<8A5E REGISTER 0ESIGNAT0R> 

I <3INARY CONVERSION 0ESIGNAT0R> 

I <8INARY_SEARCH 0ESIGNAT0R> 

1 <C0MMUNIC4TE WITH GISM0 FUNCTI0N> 

I <CGNS0LE SWITCHES C£SIGNAT0R> 

I <C0NTR0L STACK 3ITS 0ESIGNAT0R> 

I <C0NTR0L STACK TOP 0ESIGNAT0R> 

! <CQNVERT 0ESIGNAT0R> 

\ <0ATA ADDRESS 0ESIGNAT0R> 

1 <0AT4J_ENGTh 0ESIGNAT0R> 

t <DATA_TfPE 0ESIGNAT0R> 

I <DATE FUNCTION 0ESIGNAT0R> 

I <0ECIHAL CONVERSION DESIGNAT0R> 

I OELIMITED TOKEN 0ESIGNAT0R> 

I <DISPATCH DESIGNATOR 
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MSE_REGI£ieR 



<QISPLAY BASE DESI 
<DYNAMIC MEMORY 8A 
EVALUATION STACK 
<EX£CUTE OPERATOR 
<EXTENCED ARITHMET 
<HASH CODE QESIGNA 
INTERROGATE INTER 
<LAST LIO STATUS D 
<LEtfGTH DESIGNATOR 
<LIMIT REGISTER DE 
<LOCATION DESIGNAT 
<NAME-0F-OAY FUNCT 
<NAME STACK TOP DE 
<NEXT TOKEN DESIGN 
<PARITY„AODRESS DE 
^PROCESSOR TIME FU 
<PROGRAM SWTICHES 
<SEARCH„LINKED_LIS 
<SEARCH SDL STACKS 
<SEARCH SERIAL LIS 
<M EMORY SIZE OESIG 
<SORT_SEARCH QESIG 
<SORT STEP_DOWN DE 
<SORT JJNBLOCK DESI 
<SPO INPUT PRESENT 
<SU8_STRING VALUE 
<SWAP DESIGNATOR 
<TIME FUNCTION DES 
<TIM£R DESIGNATOR> 
<DESCRIPTGR_VALUE_ 
<WAIT FUNCTION> 



GNATGR> 

SE DESIGNATOR> 

TOP OESIGNATOR> 

FUNCTION 

IC FUNCTION> 

TOR> 

RUPT STATUS DESIGNATOR> 

ESIGNATOR> 

> 

£IGNATOR> 

0R> 

ION OESIGNATOR> 

SIGNATOR> 

ATOR> 

SIGNATOR> 

NCTICN DESIGNATOR> 

D£SIGNATOR> 

T DESIGNATOR> 

DESIGNATOR> 
T DESIGNATOR> 
NATOR> 
NATQR> 
SIGNATOR> 
GNATOR> 

DESIGNATOR> 
DESIGKATOR> 

IGNATOR> 

GENERATOR DESIGNATOR 



<BAS£ REGISTER 
OESIGNATOR> :: 



BASE REGISTER 



A value of type 8ITC2A) is returned. The value is the absolute 

address of the base of the program. It should be noted that two 
separate executions of B ASE_REGI STER may not yield the same 
results* since the MCP may have moved the program in memory- 
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SUAE! CONCESSION 



<6INARY CONVERSION 
CESIGNATOP> : := 



BINARY <<EXPRESSION>) 



The <BINARY CONVERSION DESIGNATOR returns a ftxed value which is 
the binary representation of the <EXPR£SS I0N>. The <EXPR£5SION> 
is assumed to be a character string containing decimal digits* 
Only the low-order 8 characters will be converted. Zone bits are 
i gno red. 



If the conversion results in a binary value greater than 24 bits 
(i.e.* if the decimal number is greater than 16* 7 Up 2 15) * then 
the left- mo st bits will be truncated. 



If the decimal number is greater than 8*388*607 (i.e.* C2 
23)-l)* then the returned value will appear to be negative (i 
the high- order bit is 1). 



exp 

e. * 



9INARY SEARCH 



<fiINARY SEARCH FUNCTI0N>::= 



aiNARY_S£ARCH 

C<START„REC0R0>* <COMP ARE_F I ELD> * 

<C0MPARE VALU£>* <NUM8ER OF RECOROS>) 



<START R£CORO>::= 
<CQHPARE_FIELD>::= 
<COMPARE_VALU£>::= 
<NUMSER OF REC0RDS> 



<EXPRESSION> 
<TEMPLATE> 
<EXPR£SSIGN> 
<AOORESS GENERATOR 



8 INA RY_SEARCH searches an ordered list of iteas that 
(START R£CQRD> for <NUMBER OF RECOR0S> for a match. 



st ar t at 



The occurrence number of the entry that matches will be returned* 
or i f there is no match* the occurrence number of the first entry 
that is greater will be returned. 



Note: The comparison is always left 
length of <C0MP*RE VALUE>. 



justified and uses the 
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COMMUNICATE WITH GISMO 



<CUMMUNICAT£ 
FUiMCTION> :: 



WITH GISWQ 



COHMUNICATE HTH GI3M0 { <EXPRESS ION> ) 



The value of the operand is made non~ self "relative by pushing its 
value to the Value Stack* if necessary. The absolute address of 
the value is copied into the T-register* and the length is copied 

into the L-register. The proper swapper value is put into the 
X-register and control is passed to GISMO. An/ value returned by 
GISMO will be described by the same descriptor on the Evaluation 
Stack as was used to pass a value to GISMO. 

C0MMUNICATE_WITH_GISM0 may be used either as a statement or as a 
func t ion. 



CQNS0LE_3WIICHE5 



<C0NS0L£ SWITCHES 
0ESIGNAT0R>::= 



CONSOLE SWITCHES 



Note: This function has meaning only E1720"ser i es systems. 
It leaves on the top of the Evaluation Stack a 
24-bit* sel f- re lat i ve value of the 24 console 
switches. 



CONTROL STACK BITS 



<C0NTR0L STACK 
BITS DESIGNATORS : = 



CONTROL STACK BITS 



This function leaves on the top of the Evaluation Stack a 24-bit* 
self ~r etat i ve value of type bit which is the number of tits left 
in the control stack until overflow- 



CONTROL STACK TOP 



<C0NTR0L STACK TOP 

DESIGNATQR> : : = 



CONTROL STACK TOP 
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A value of type 8ITC24) is returned. The value is the base 
relative address of the next entry to be placed on the control 
s tack • 



fifiNVERJ 



<COMVERSIO^ DESIGNATOR 



CONVERSION PART> 

CONVERSION TYP£> 
<BIT GROUP SIZ£> 



CONVERT C<EXPRESSION>» 
<C0NVERSI0N PART>) 
I CONV (<EXPRESSION>> 
CONVERSION PART>) 

CONVERSION T VPE> 
I CONVERSION TYPE>, 
<8IT GROUP SIZE> 

BIT I CHARACTER I FIXED 

1 I 2 I 3 I k 



The <EXPR£S3IQN>> which may be of any data 

converted as specified by the <CONVERSION TYPE>. 
<EXPR£SSION> wiLL be returned as a value. 



type* w iLL be 
The converted 



The <8IT GROUP SIZE> is used only with b i t- t c-char acter or 
char acter-to-b i t conversions. It specifies the number of bits 

(of the bit strinq) which correspond to a character in the 
char acter s tr i ng. 



Note: Bit-to-character conversion does not yield decimal 
digits. If a bit string is to be converted to 

decimal digits* it should be stored in a fixed 
variable* and the fixed variable converted. 
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table shows the possible conversion 



OUTPUT: 



BIT 



CHARACTER 



FIXED 



INPUT: 

BIT 



******************************************************** 

* Convert to CHAH. * Return 24 BITS * 
under control of * providing lead- * 
<8IT GROUP SI ZE>; * ing zeroes or * 
if omitted use 4 



* 

* No change 

* 

* 



* left truncation** 

* as necessary. * 



**•***+*•*********************** ft *********************** ft 



********************************************************* 

. . * ft 

CHAR4C- * under control of* No change * See Note. * 
TER * <EIT GROUP SIZE>; * * 

* * 



* Convert to bits * 

* under control of* No change 

* <EIT GROUP SIZE>; 

* if offl i t ted use 4* 

********************************************************* 



********************************************************* 

* * Decimal conver- * 

* Change type * sion w/ leading * 
FIXED * to BIT * zeros 8 sign not * No change 

* * suppressed. t7 * 

* * digi ts + SIGN) . * 
********************************************************* 

Note: The character string may have leading blanks* sign 
(or none)* snore blanks* and decimal digits* A plus 
sign is ignored. The decimal digits (only the 
low-order 7 ) are converted to a binary number that is 
r i gh t- j ust i f i ed in a 24-bit field. If the sign was 
minus* then the 2 f s complement of the 2 4 -bit field is 
r eturned. 



EXAMPLES: 



CONVERT (*W2581 T, *FIX£0) 

CONVERT (3(3)7523*CHAR4CTER*4) 

CONVERT (3(1 > 1 10 1 1 3 *FI XEO ) 

CONVERT ( w l32 n *3IT*2) 

CONVERT (*132 ,, *SIT*<») 

CONVERT ("2"*3IT) 



returns 



-72581 
"1EA W 
27 

3(2)1323 
3(4)1323 
3(4)23 
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<CATA ADDRESS 
DESIGNATOR> : := 

<ADDRESS GENERATOR : : = 



DATA_ADORESS C<ADDRESS GENERATORS 
See ADDRESS GENERATORS 



The <CATA ADDRESS DESIGNATOR> returns a value of type 8ITC2A) 
which is the base relative address generated by the <ADDRESS 
GENER4T0R>. 



D1I^_LE^GIH 



<DATA_LENGTH DES I GN AT0R> : : = OATA_LEfcGTH C <EXPRESS IGN> ) 



Returns the length in bits of <£XPRESS IQN> * regardless of the 
data t ype. 



DATA TYPE 



<DATA_TYP£ DE SI GN AT0R> : := DATA_TYPE ( <EXPRES £1 0N> ) 



Returns the type bits of <EXPHE5S I0N> 



CATE 



<DATE FUNCTION 
DESIGNATOR> : := 



<0ATE F0RMAT> : :• 
<R£PRESENTATION> 



DATE 
I DATE (<OATE F0RMAT>» <REPRE SENTATI 0N>) 

JULIAN I MONTH I DAf I YEAR 

SIT 1 DIGIT 1 CHARACTER 



The <DATE FUNCTION DESIGNATOR> returns a bit or character string 
which is the date of the execution of the function. 
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OATE and DATE (MONTH, CHAR ACTER) are equivalent. 



The formats (in bits) of the returned strings are: 



SIT 



DIGIT 



CHARACTER 



JULIAN (YYDDD) 
.MONTH (MMDDYY) 
DAY CDDMMYY) 

YEAR (YYMMDD) 



7+9=16 

4+5+7=16 
5+4+7=16 
7 + 4 + 5=16 



8+12=20 
8+8+8=24 
8*8+8=24 
8+8+8=24 



16+24=40 
16+16+16=48 
16+16*16=48 
16+16+16=43 



Example: DECLARE D CHAR ACT£R( 5) ; 

D := DATE ( JUL I AN, CHAR ACTER.) ; 



DECIMAL CONVERSION 

<DECIHAL CONVERSION 
CESIGNATOR> : : = 



DECIMAL (<EXPRESSION>, 
<DECItfAL STRING SIZE>) 



<DECIKAL STRING S IZE> :: = 



<£XPR£S3ION> 



The value of the first <EXPRESSION> following the reserved word 
DECIMAL is converted to a string of decimal characters- If the 
value of the <EXPR£55I0N> generates more than 24 bits, then only 
the low-order 24 bits are used. 



The number of characters returned is given by the value of the 
<0ECIMAL STRING S IZE>. A maximum of 8 decimal characters will be 
returned, even if the value of the <0ECIMAL STRING SIZE> is 
greater. If the <DECIMAL STRING SIZE> is less than the number of 
decimal characters, then characters are truncated from the left. 



DELIMITED TOKEN 



<DELIHITED TOKEN 
DESIGNATCR>::= 



DELIMITE0_T0K£N (<FIRST CHARACTERS 
<DELIMI TERS>, <RESL'LT>) 



<FIRST CHARACTER>::= 
<C£LIHITERS>: : = 



<I0ENTIFIER> 

CHARACTER STRINO 
I <OIT STRING> 
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The <FIRST CHARACTER> is a simple identifier which describes the 
first character to be examined. <DELIMIT£RS> will generate 16 
bits of information* each of the 8-bit bytes being used as a 
delimiter. For SDL* <OELItfITERS> will be %; for C080L* 
37F033 (Quote followed by ETX). 



0ELIMIT£D_T0KEN will leave on the top of the Evaluation Stack the 
descriptor of the string of characters from (and including) 
<FIRST CHARACTER> up to (but not including) whichever delimiter 
was found. The descriptor cf «RESULT> will be replaced by this 
descriptor. The address field of <FIRSf CHARACTER> will be 
changed to point to the delimiter which stopped the scan. 



DISPATCH 



<DISPATCH DESIGNAT0R> 



1 SP ATCH( c PQR T * CHANNEL >* 
<I/0 DESCRIPTOR AO0RESS>) 



<P0RT, CHANNEL > :: = 

<I/0 DESCRIPTOR 
ACDRESS> ::- 



<£XPRESSI0N> 



<EXPRESSI0N> 



The rightmost seven bits of the value of <P0RT* CHANNEL> contain 
the following information from left to right: 



3 3ITS 4 BITS 
: PORT : CHANNEL : 



The rightmost 24 bits of the vatue of the <I/0 DESCRIPTOR 
ADQR£S5> is the absolute address of the 1/0 descriptor. 



Using these two values* an 1/0 operation is initiated, 
value with the foLLowing meanings is returned" 



A bi t 



= DISPATCH REGISTER LOCK BIT SET 

1 = SUCCESSFUL DISPATCH 

2 = SUCCESSFUL DISPATCH* BUT MISSING DEVICE 
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<DISPLAY 9ASE 
DESIGNATOR :: 



DISPLAY BASE 



This function leaves on the top of the Evaluation Stack a 2 4- bit* 
self -r elat i ve value of type bit which is the base-relative 
address of the base of the Display Stack. 



£lNdMC_!!EM0RY_8ASE 



<DYNAMIC MEMORY 
BASE DESIGNATOR 



DYNAMIC MEMORY 3ASE 



The <DYNAHIC HEHORY BASE DESIGNAT0R> returns a 24-bit value which 
is the base relative address of the program's dynamic memory. 
Refer to the SDL S- Language documentation for discussion of the 
use of dynamic memory. 



EYALUVII£N_SIA_CK_irjP 



EVALUATION STACK 
TOP DESIGNATOR:*:: 



EVALUATION STACK TOP 



This function leaves on the top of the Evaluation Stack a 24-bit» 

self -relat i ve value of type bit which is the base-relative 

address of the top of the Evaluation Stack (before execution of 
th i s f unct ion ) . 



EXECUTE 



EXECUTE OPERATOR 
FUNCTION>j: = 



EXECUTE (EXPRESSION LIST>) 



EXPKESSI0N LIST>::= 



EXPRESSION:* 
I EXPRESSION LIST>, <EXPRESSI0N> 



Note: The EXECUTE function is intended only for use by 
interpreter writers in the experimental design of new 
opcodes. 
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The value of the last expression may be expected to be an opcode 
which may then be executed by the interpreter. EXECUTE may be 
used as a statement as well as a <VALIE GENERATING FUNCTION 
DESIGNATORS 



This statement or <VALUE GENERATING FUNCTION DESIGNATOR> when 
used with released interpreters will result in a "BRANCH TO 
INVALID OP CODE" condition. 
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EXIENa£D ARXTHMEIIJC FUNCJIONS 



<EXTENDED ARITHMETIC 

FUNC TION>:: = 



<EXTENDEO ARITHMETIC 
FUNCTION DESIGNATOR; 



<EXTENOEO ARITHMETIC FUNCTION DESIGNAT0R> 
(<EXPRESSION>* <EXPRESSION>) 



X_ADD I X.SUB I X_MUL I X_OIV \ 
I X MOD 



The indicated operation is performed on the two operands* which 
are treated as bit strings* The operation is performed on the 



full length of the operands* not just the low-order 24 
length of the result is derived as described below: 



bits. The 



Addition (Subtraction): If the two operands are of different 

lengths* then the shorter is padded on the left with binary 
zeroes. The length of the sum (difference) will be equal to the 
length of the longer of the two operands. The result will be in 
two's complement notation. 



Multiplication: The length of the product will be the sum of the 
lengths of the two operands. (This sum may not exceed 65*535 

bits.) 



Division (Modulo): The length of the quotient (residue) will be 
length of the dividend (modulus). 

For X_5UU* X_01tf* and X_MGD* the second argument represents the 
subtrahend* divisor* and modulus* respectively. 



HASJj^QOaE 



<HASH CODE DESIGNATOR 
<T0KEN> :: = 



HASH_CQ0E («TQK£N>) 
<EXPRESSION> 



The HASH. CODE will leave on the Evaluation Stack a descriptor of 
type BIT and length 24. The value will be computed from the 
characters of <TQKEN> and the length of «T0KEN>. (If <T0KEN> is 
longer than 15 characters* only the first 15 are consioered.) 

To be effective* the value generated by HASH. CODE must be used 
modulo a prime number (which is then the hash table size). 
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INIERR0GATE_INIERRIJPT STATUS 



<INTERROGATE INTERRUPT 
STATUS 0ESIGNAT0R> ::= 



INTERROGATE INTERRUPT STATUS 



A 24-bit data item of type bit is returned- The value represents 
the interrupt bits of the M-machine. The applicable M-oiachine 

interrupt bits are reset. Note that the INCN bits will not be 
r ese t • 



LAM_LI3_£IAIJS 



<LAST LIO STATUS 

DESIGNATOR::* 



LAST LIO STATUS 



Returns the last logical I/O status as type bit with a length of 
RSJ.AST_LI0_STATUS_SIZE. 



LENGTH 



<LENGTH DESIGNATOR 



LENGTH (<£XPRESSI0N>) 



The <LENGTH 0ESIGNAT0R> returns a 24-bit* type bit field 
containing the number of units in the <EXPR£SSIQN>. If the 
<EXPRESSI0N> is type character* then each character is a unit. 
Otherwise* each bit is a unit. 



LI«II-SEGISIER 

<LIMIT REGISTER 
DESIGNATOR> : := 



LIMIT REGISTER 



The <LIMIT REGISTER DESIGNATOR returns a value of type 3ITC24) 
which is the base relative address of the program's Run Structure 
Nucleus. For further explanation* please refer to the 31700 MCP 
Manu a I • 
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LOCATION (^PROCEDURE IDENTIFIERS 
! LOCATION (<SIHPLE IDENTIFIED) 
I LOCATION (<ARRAY ID£NTIFIER>) 

<IDENTIFIER> 

<IDENTIFIER> 
<ID£NTIFIER> 



For procedures* the <LOCAriON OESIGNATOR> returns a 33-bit value 
(typed 3IT) containing* from left to right: 



ADDRESS TYPE* CONTAINING 3(3)63 
SEGMENT NUMBER 
PAGE NUMBER 
DISPLACEMENT 



4 3 ITS 

6 3ITS 

6 BITS 

20 SITS 



This 33-bit value is the address of the procedure in question. 

A forward declaration is required only during recompi I at ion or 
Crea te-Mast er for any procedure on which a location is performed. 
An error is given if this is not done • 



For simple and array identifiers* the <LQCATIGN DESIGNAT0R> 
returns a 16-fcit value (typed BIT) containing* from left to 
r igh t : 



ADDRESS TYPE CONTAINING 3(2)03 
LEXIC LEVEL 
OCCURRENCE NUMBER 



2 BITS 
4 BITS 

10 BITS 



NA£L-0F_DAY 

<NAME OF OAY FUNCTION 
0ESIGNAT0R> : : = 



NAME OF DAY 



A character string* which is the name of the day of the week* is 
returned as a 9-character string. The name is left justified. 



Example: DECLARE DAY CHARACTER! 9) ; 
DAYJNAME OF OAY 
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NAME_STACK_TOP 

<NANE. STACK 

TOP OESIGNATOR>::= 



NAME STACK TOP 



This function leaves on the top of the Evaluation Stack a 24-bit* 
self -r el at i ve value of type bit which is the base-relative 
address of the top of the Name Stack. 



NEXI-IJQKEN 
<N£XT TOKEN DESIGNATOR> 

<FIR5T CHA.?ACTER> :: = 

<SEPARATOR>::= 

CNUMERIC-TO-ALPHA 
INDICATOR^ : = 



NEXT_TOKEN C<FIRST CHARACTERS 
<SEPARATOr<>» <NUHERIC-TQ-ALPHA INDICATOR:** 
<RE5ULT>) 

<IDENTIFIER> 

<CHAR4CTER STRING> 

SET I RESET 



The <FIRST CHARACTER> is a sifrple identifier which describes the 
first character to be examined. This will usually be the first 

character of the token. The <S£PARATGR> is the token separator: 
"_" for SDL* "-■• for COBOL* etc. It must be a single character; 
if none is needed* use W A W . <NUMER IC-TO- ALPHA INDICATGR> 

is set if symbols such as 235A8 are allowed. It is RESET 

other w i se. 



NEXT_T0KEN wilt leave 



on 



the top of the Evaluation Stack the 



descriptor of the next token. This token 

a nuftber* or a special character. The 
will also be replaced by this descriptor- 
<FIRST CHARACTER will be changed to 
following this token. NEXT_T0K£N assumes 
describes a non-blank character. 



wilt be an identifier* 
descriptor of <RESULT> 
The address field of 
point to the character 
that <FIftST CHARACTER> 
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£!BIIX_i£0££SS 



<PARITY ADDRESS 
DESIGNATOR> : := 



PARITY ADDRESS 



For MCP use only 



The <PARITY_ADDR£SS DESIGNATOR> returns a 2A~bit value which is 
the address of the first parity error encountered in S-Mesnory. 
If no parity error is found* 3FFFFFF3 is returned. 



PROCESSOR TIME 



<PR0CESS0R_TIME FUNCTION GENERATOR> : := PROCESSOR^ I ME 



PROC£SSQR_T IHE wilt yield the accumulated processor tiiae since 
80J in tenths of a second as a BITC20) data item. 



Exatop I e : 



DECLARE (PRGC TIME* HOUR 5* MINUTES* SECOND S# TEN TH S ) 8IT(20)J 



/* EARLY CODE 

PROC.TIME := PROCES SO R_T I ME ; 

/* CODE TO BE TIM 

PROC_TIME := PROCESSOR^ T IME - PR0C_TIME; 
HOURS := PROC_TIME / 36000; 

MINUTES := PROC_TIME *0D 36000 / 600; 

SECONDS := PR0C_TIM£ MOD 600 / 10; 

TENTHS := PRUC_TIME MOO 1 0; 

/* LATE CODE */ 



/* 



E 



*/ 



PROGRAM SWITCHES 



<P«0GRAM SWITCHES 
QESIGNAT0R> : := 



PROGRAM SWITCHES 
I PRQGRAf«_SWITCHES C <EXPRESS IQN> ) 
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This function is used to read the program switches which have 
been specified by the Program's Parameter Block (PPB)* a control 
card or a SPO input. If a parameter is specified* the 

corresponding switch (0 through 9) is returned as a A-bit 
quantity. A parameter which is less than zero or greater than 
nine will yield a run t i me error of invalid substring. If no 
parameter is specified* all ten switches are returned as a AO-bit 
result- SDL provides no means to modify the program switches* 



5££fi£aj.INKE0_LiSI 



<S£ARCH_LINKED LIST 
DESIGNAT0R> : := 



<START REC0R0> 
<CQMPARE FIEL0> 
<CL)MPARE VALUE> 
<RELATIQN> ::= 

<LINK FIELD> :: = 
<TEMPLATE> :: = 



SEARCH_LINK£D_LIST 
(<START RECaRO>*<C0tfPARE FIELDS 
<C0HPARE VUUE>*<RELATIGN>* 
<LINK FIEL0>) 

<EXPRES5IQN> 

<TEMPL4TE> 

<£XPR£SSI0N> 

< | <= J = | /= | >= | > | 

LSS I LEQ I EQL J NEQ I 
GEQ I GTR \ 

<TEMPLATE> 

<A00RESS GENERAT0R> 



1. The <START REC0R0> is the first structure to be 
examined. Typically* it is an <A0DR£SS GENERATORS 
but an <EXPRESSI3N> is allowed. 

2. The <C0HPAR£ FIEL0> is a template which gives the 
relative offset and size in the structure* of the 2A 
Cor less) bit field being compared with the <CQ;1PARE 
VARIABLES 

3. The ^COMPARE VALUE> is the value against which the 
specified field in the structure is compared. 
<CGMP*RE VALU£> is considered "on the left" of the 
relation. 

A. The <RELATI0N> specifies the desired relation in the 
comparison of the two values. 

5. The cLINK FIELQ> is a temptate which gives the 
relative offset and size in the structure* of the 2A 
(or less) bit field containing the address of the 



BURROUGHS CORPORATION 
COMPUTER SYSTEMS G30UP 
SANTA BARBARA PLANT 



8-33 

COHPAMr CONFIDENTIAL 

8l8C0/8ir00 SDL (BNF Version) (F) 

P.S. 2212 5A05 



next structure to be examined (if comparison with the 
current structure fails). 



A template is an address generator whose address is relative to 
the beginning of a structure rather than base relative. A field 
in a structure declared REHAPS 8ASE has such an address. 



The last structure in the linked list contains all I bits in the 
field described by the <LINK FIELD>. 



The linked list is searched until the desired comparison succeeds 
or until the comparison fails with the last structure. 



If the search succeeds* the base-r ela t i ve address of the current 
structure is returned as a 24-bit value. If the search fails* 

3FFFFFF3 is returned. 



SEARCH SDL STACKS 



<SEARCH SOL STACKS 
QESIGNATOR> :: = 



5EARCH_SDL_STACKS 

(<STACK BAS£>* <STACK T0P>, 

<C0tfPARE 8ASE>* <C0HPARE T0P>) 



<STACK 8ASE>: := 
<STACK TQP>::^ 
<COHPArtE B4SE>::= 
<C0MPARE T0P>:: = 



<£XPRESSI0N> 
<EXPRESSI0N> 
<EXPRESSI0N> 
<EXPRESSION> 



The four paraireters are expected to generate values which are 
base-relative addresses of the base and top of a stack of SOL 
descriptors and of an address range* respectively. The stack 

will be searched for a non-array* non-sel f -rel ati ve SOL 
descriptor whose address is within the given range* If the 

search is successful 3(1)13 will be returned? otherwise* 3(1)03 
will be returned. 
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<SEARCH SERIAL 

LIST OESIGNATOR> ::= 



<SSL COMPARE VALUE> : 

<SSL COMPARE TYP£> :: = 

<SSL COMPARE FIELD>:: = 

<SSL FIRST IT£M>:: = 

<SSL TABLE LENGTH>: := 

<SSL RESULT VARIA8LE> 
<TEMFLAT£> ::= 



SEARCH_SERIAL_LIST (<SSL COMPARE VALUE>* 
<SSL COMPARE TYPE>, <SSL COMPARE FIELD>* 
<SSL FIRST ITE*>* <SSL TABLE LENGTH>* 
<SSL RESULT VARI«8LE>) 

<EXPRESSION> 

< I <= i = i /= i >- i > 

! LSS I LEQ I EQL J NEQ ! GEQ I GTR 
<TEMPLATE> 

<ADDRESS GENER«TQR> 
<EXPRESSION> 
<A0DRES5 GENERATOR> 
<ADDRESS GENERATOR> 



SEARCH_SERI *L_LIST searches a serial list of items beginning with 
the structure described by <SSL FIRST ITEH>. <5SL COMPARE VALUE> 
is compared (as specified by <5SL COMPARE TYPE>) against the 
field of the field described by <SSL COMPARE FIELD> (<SSL COMPARE 
FIELD> is a TEMPLATE) until a match has been found* or until <SSL 
T*BLE LENGTH> number of bits has been searchec. 

When the relation is non-co fmutati ve* the comparisons are made as 
though <SSL COMPARE VALU£> was "on the left" of the relation. 

If the search succeeds* the base relative address of the item 
containing the successful <SSL COMPARE FIELD> is stored in <SSL 
RESULT V4RIA3LE> and a 3(1)13 is returned. 



If the search fails* then the end address of the table if stored 
in <SSL RESULT VARIA8LE> and a 3(1)03 is returned. 
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<NEMORY SIZE 
OESIGNATOR> : : = 



S_MEM__SIZE I M_ME.M_SIZE 



The requested memory size is returned as a 24-bit data item of 
type bit. 



S0RJL3EARCH 



<SORT_SEARCH 
OESIGNATOR> : := 



STABLE ADORES S> 
<LIMIT> ::= 



SORT SEARCH 

C<TA8LE flOORESS>i.<LIMIT>) 

<A0DRES5 GENERAT0R> 

<EXPRESSION> 



For use by sort only. 



The <SORT SEARCH CESIGNATOR> provides the i n f or mat i or, to evaluate 
a record for sorting purposes. The <TAQLE A00RESS> contains the 

address* in an array of records* of the first record to be 
examined and the condition under which records will be selected. 



The <LIMIT> specifies the last record to be examined. 



SURT STEP DOWN 



<S0RT STEP DOWN 
0ESIGNAT0R> : := 



<RECCR0 1> :: = 
<R£C0RQ 2> :: = 

<K£* TABLE ADDRFSS> 



5URT_ST£P_D0KN 
C<RECQR0 1>*<REC0RD 2>* 
<KEY TABLE AC0RE5S> 

<EXPRES5I0N> 

<EXPRESSI0N> 

<£XPRESSI0N> 



BURROUGHS CORPORATION 
COMPUTER SYSTEMS GROUP 
SANTA BARBARA PLANT 

For use by sort only. 



B18C0/B17Q0 



8-36 

COMPANY CONFIDENTIAL 

SDL CBNF Version) (F) 

P.S. 2212 5405 



The <SURT_STEP_DOWN OESIGNATOR> provides the information 

necessary to compare two records, <REC0ftD 1> and <RECGRD 2> are* 
respectively* the first and second records which are to be 
compared- The <KEY TABLE ADDR£SS> specifies the sort key used in 
the comparison- 



SQBIJJNgLGCK 



<S0R T_UNHL0CK 
DESIGNATUR> : : = 



<MINI FIB A00RESS> : 
<LEMGTH> :: = 
<S0URCE> ::= 
<DESTINATI0N> t: = 



50RT_UN3L0CK C«MINI FI8 ADDRESS>* 
<LENGTH>* <SQURCE>* <DEST IN ATIQN> ) 

<A0DR£SS GENEftAT0R> 

<EXPRE55I0?J> 

<EXPRESSI0N> 

<EXPR£SSI0N> 



For use by SORT only 



The <S0RT_UN8L0CK DESIGNATOR> moves a record to or from a buffer* 
updating the buffer pointer and block count. It normally returns 
a zero. Khen the block count goes to zero* it restores the 

original buffer pointer and block count* and returns a I* 
signalling the need for an I/O. 



A bit on the mini-FIB signals SQST_UN8L0CK to create sort tags. 
For this function* it uses the sort key table and selects only 
the key information to move from the buffer. 4 value in the 

mini -FIB represents the length of the receiving field. 



3£fl_lNPUT_PRESEi)JI 



<SP0 INPUT 

PRESENT i)ESIGNAT0R>:: = 



SP0_INPUT_PRESENT 
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A special* SPO_INPUT_PRESENT, has been added to allow the 
presence of SPG input to be tested before having to perform an 
accept to the «CP. 



SUBUIT 4N0 SUS.SIR 



<SU8-STRING VALUE 
DESIGNATOR> : := 



<SUB-STRING FUNCTION 
inLNTIFIER> : : = 

<STRING V4LUE> ::= 
<0FFSET PART> ::= 
<LENGTH P4RT> : := 



<SU8-STRING FUNCTION IDENTIFIER> 
(<STRING VALUE>*<OFFSET PART>) 
I <SU8~5TRING FUNCTION ID£NTIFIER> 
(<5TRING VALUE>,<OFFSET P4RT>, 
<L£NGTH PART>) 



SUB3IT I SU8STR 
<EXPRESSION> 
<EXPR£SSION> 
<EXPRESSION> 



The <SU8-STRING VALUE 0ESIGNAT0R> and the <SU3-STRING ADDRESS 
0ESIGNAT0R> are identical except that the former returns a value 
if its CSTRING VALUE> is not an <4DDRESS GENERATOR^. Please see 

SU83IT AND SU8STR under ADDRESS VARIABLES for the specifics of 
the f unct ion. 



The foLLowing examples iLLustrate 
<S'J3-STRING VALUE DESIGNATORS 



some 



of the 



uses 



of the 



XISU3STRCA CAT 8*5*10); 

M4KE_DESCRIPTGRC3483 CAT SUB3ITCA OR 3 
IF SUSSTRC3D&3 CAT ABC* 0) = Y THEN .. 



0* 16) CAT X) I 
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<SWAP DESIGNATORS 



SWAP (<AOORESS GENERATOR, <£XPRESSION>) 



The length of the value described by the <ADDRESS GENERATOR> is 
used as the length* L* of the data to be SfcAPped. However* if 
the length of the value is greater than 24 bits* L will be 24 
bits* and only the low-order 24 bits of the <A0DRESS GENERATQR> 
w iLL be mod i f i ed. 



SWAP is indeed a true swap operation: that is* the items 
exchanged in one "virtual" memory cycle. This is necessary 
the synchronization of independent processes (e.g.* HCP 
GtSHG). 



ar e 
for 

an d 



The rightmost L bits of the value 
G£NEfi4TQR> are isolated* and become 



described by 
the destination 



the <A0DR£SS 
fi eld. 



The rightmost L bits of the value generated by the <EXPR£SSI0N> 

are isolated* Leading zeroes are supplied if the length of the 

value is less than L bits long. This field is known as the 
sour ce f iel d. 



The source field is stored into the destination field* the 
original value of which is the value returned. The returned 
value is of type bit and of length L» 



E xamp I ei 



aio; 

IF SWAP 



C A * 1 ) 



THEN 
ELSE 



00 
00 



end; 
eno; 



In the above example* the ELSE part 
evaluated* since A was originally set to 
end of the SW 4P* 1 has been stored into A* 
top of the Evaluation Stack. 



of the stat ement i s 
i i.e.* false) • At the 

and returned to the 
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<TIM£ FUNCTION 
DESIGNATQR> : := 



<TIME FORMAT> : : 
{REPRESENTATION 



TIME 

TIME (<TIME FORMAT>,<REPR£SENTATIGN>) 

COUNTER I MILITARY I CIVILIAN 
8IT I DIGIT I CHARACTER 



The <TItfE FUNCTION DESIGNATOR> returns a bit or character string 
which is the time of the function's execution. The <TIME FQKMAT> 
may have three basic formats: 



COUNTER: Returns the time of day in tenths of seconds. 



yiLITARf: Returns the tine of day in the following form 
HHMMSST (Where T=Tenths of seconds). 



CIVILIAN: Returns HHHMSSTAPC Where AP=AH OR PM). 



The time of day way be represented in either bits* 
characters in the following formats: 



digits* or 



COUNTER 

MILITARY 

CIVILIAN 



NOTE: 



BIT 

20 BITS 

5+6+6+4=21 

4 +6+6+4+16=36 



DIGIT 
2 A 3 ITS 

6+3+8+4=28 
8+8+8+4+16=44 



CHARACTER 
48 8ITS 
16+16+16+8=56 
16+16+16+8+16=72 



TIME and TIME (C I V ILI AN *CH AH ACTER) are eauivalent. 



TIMER 



<TIMEP DESIGNATORS : = 



TIMER 



A value of type BITC24) is returned 
setting of the TIME register. 



The value is the current 
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<CESCRIPTOR-V ALUE GENERATOR 
DESIGNATOR> : := 

<ADDRESS GEN£RATOR> :: = 



VALUE_DESCRIPT0R (<ADOR£SS GENERATORS 
See ADDRESS GENERATORS 



The <ADDR£SS GEN£RATOR> is represented by a descriptor at the top 
of the Evaluation Stack. This descriptor is noved to the Value 
Stack. In its place on the Evaluation Stack is left a descriptor 
describing the one just moved to the Value Stack. 

The Name-Value bit is set in the descriptor left in the 
Evalua t i on St ack • 



WAIT 



<WAIT FUNCTI0N> : : = 

<5TART POSITIQN> :: 
<EVENT LIST> :: = 
<EVENT> :: = 
<QUALIFIE0 EV£NT> : 
<SI.MPLE £V£NT> :: = 



<FIL£ SP£CIFIER> 



WAIT <START POSITI0N> (<EVENT 
LIST>) 

[<EXPRESSiON>l I <EHPTr> 

<£V£NT> I <EVENT LIST>* <EVENT> 

<SlHPLE EVENT> I <QUALIFIED EVENT> 

<SIMPL£ EVENT> WHEN <EXPR£SSI0N> 

TIM£_TENTHS ( <£XP«ESS I 0N> ) 

i SP0 INPUT PRESENT 

1 SP0llNPUT~PRESENT 

I 0C_Ta_COMPLETE 

! REA0_0K (<FILE SPECIFIERS 

I WRITE OK (<FILE SPECIFI£R>) 

I a_WRITE._0CCUER£D (<FILE IDENTIFIERS 

<FILE Ii)ENTIFIER> 
« <FIL£ IDENTIFIER> C<£ XPRESSI 0N> 1 



The WAIT function returns a fixed value which is the ordinal 
position of a true event in the <£VENT LIST>. If no event is 

true* the process wilt be blocked until one of the events occurs. 
If more than one is true* the value that is returned is the 
position of the first event found true in a left to right 
circular scan starting from <START POSITIONS If <STAPT 

P0SITI0N> is empty* zero is assumed. If <ST4RT P0SITI0N> is 
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greater than or equal to the number of items in the <EVENT LIST>* 
the flCP will terminate the job* In the case of a QUALIFIED 
EV£*4T># the event will never oecome true unless the aualifying 
<EXP«£SSI GN> evaluates to true* i.e.* its lowest order bi 
one. 



i s 



The various 
sati sf i ed : 



events are true when the cond i t ion< s) below are 



EVENT 



CONQITION(S) 



TIME.TENTHS (<EX- 

PRESSI0N>) 



SP0_INPUT_PPESENT 



CC IO COMPLETE 



REA0_QK (<FILE 
SPECIFIER>) 



WRITE.OK (<FILE 
SPECIFIERS 



G_WRITE_OCCURRED 
( <FILE IDENTIFIERS 



The specified number of tenths of sec- 
onds have elapsed since the WAIT began 
ex ecu t ion • 

A message from the operator has been 
queued for the HAITing program. 

A previously initiated data communications 
10 has been co*pleted. 

The buffer for the specified file contains 
a record waiting to be read. If a 

C<EXPRESSI0N>3 is specified* it is taken 
to be a subscript of a queue file farcily, 
If the file is a queue file family and r.o 
subscript is specified * the event is 

al way s true. 

A buffer for the specified file is empty* 
waiting for a write operation. See above 
for queue file families. 

A write operation has been done (by 
another process) on a jrember of a queue 
file family naired in the time since the 
WAIT began execution. This event will be 
correct only when preceded by 
HESS AGE COUNT. 



Restrictions: 



1. If TIME. TENTHS is in the list* it fust be at the extreme 
left. 



2. The maximum number of tenths of seconds is 864,000, 
i.e.* 24 hours. 
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<I/0 CONTROL STATEMENT> 



<OP£N STATEHENT> 
<CLOSE STATEM£NT> 
<REAO STATE«ENT> 
<WRITE STATEMENT 
<SEEK STATEMENT>; 
<ACC£PT STATEMENTS 
<0ISPL4f ST«TEMENT>; 
<SPACE STATEMENT 
<SKIP STATEMENTS 



Each file is numbered sequentially* beginning with zero. This 
number is the <FILE NUM3ER> and will eventually be used as an 
index into the FIB dictionary. The file declaration will be usee 
to construct an FPB in the code file. 
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<OPEN ST*TEM£NT>: := 



<OPEN PART>:: = 
<FILE DE5IGNAT0R>:: = 
<0PEN ATTRIBUTE P AR T> 

<OPEN ATTRIBUTE LIST> 

<ATTRIoUTE SEPARATOR> 
<OPEN ATTRIf3UTE> :: = 



< INPUT-OUTPUT MOD£> 
<LOCK MOOE> : := 
<OPEN ACTION MOOE> 
<MFCU H0OE>:: = 

<0N BEHALF OF MODE> 
<FILE MISSING PART> 
<FILE LOCKED PART>:; 



OPEN PART>; 

I <OP£N PART>; <FILE MISSING PART> 

! <OP£N PART>; <FIL£ LOCKED FART> 

! <OP£N PART>; <FILE MISSING ?ART> 

<F ILE LOCKED PART> 

OPEN <FILE DESIGNATOR> 
<UP£N ATTRIBUTE PART> 

<FILE IDENTIFIER> 
J <SWITCH FILE IOENTIFIER> ( <EXPR£SS ION> ) 

<EMPTY> 
I <OPEN ATTRIBUTE LI ST> 
I WITH <OPEN ATTRIBUTE LIST> 

<QP£N ATT«IBUTE> 
J <OPEN ATTRIBUTE> <ATTRIBUTE SEPARATOR> 
<OPEN ATTRIBUTE LIST> 

p I <SLASH> \ <EMPTY> 

<INPUT-OUTPUT MOOE> 
I <LOCK MODE> 
I <OP£N ACTION MOOE> 
! <MFCU MQD£> 
! <0N BEHALF OF MODE> 

INPUT I OUTPUT I NEW 

LOCK I LOCK. OUT 

NO_REWINO I REVERSE 

PUNCH 1 PRINT I 
INTERPRET I STACKERS 

ON_BEHALF_OF <EXPRESS10N> 

ON FILE_.MISSING EXECUTABLE STAT£MENT> 

QN FILE.LOCKED EXECUTABLE STATEMENT 



FORMAT OPTIONS: 



1. OPEN DECL ARED_FIL£; 

If no attributes are specified* INPUT is assumed 
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FOLLOWEO BY: 



INPUT 
OUTPUT 
NEW * 

INPUT* OUTPUT 
3. OPEN DECLARED FILE WITH OUTPUT* NEW 



2. OPEN DECLARED FILE 



AND/OR: 

LOCK 

LOCK.GUT 

NO_REWIND 

REVERSE 

LOCK* NQ_REWIND 

LOCK* REVERSE 



INPUT* OUTPUT* NEW LOCK-OUT* NO_REWINO 

LOCK_OUT* REVERSE 

* NEW alone assumes OUTPUT* NEW. 

Note: The combination INPUT* NEW results in a syntax error. 



If the <0PEN ATTRIBUTED have been explicitly or implicitly 
included in the file declaration* then the file need not be 
explicitly opened here. 
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<CL05E STATEMENT>::= 
<FIL£ DE5IGNAT0R> : : = 
<CL05E ATTRIBUTE PART> 

<CLOSE ATTRIBUTE LI ST> 

{ATTRIBUTE SEP4RAT0R> 
<CLOSE ATTRI8UTE> ::- 

<CLOSE M00£> ::= 



CLOSE <FILE CESIGNATOR> 
<CLOSE ATTRIBUTE PART>; 

<FILE IDENTIFIER> 
I <SWITCH FILE IOENTIFIER> ( <EXPRESS Ii)N> ) 

<EMPTY> 
I <CLOS£ ATTRIBUTE LIST> 
\ WITH <CL05E ATTRIBUTE LIST> 

<CL0SE ATTRI9UTE> 

1 <CLOSE ATTRIBUTE> ' {ATTRIBUTE SEPARATOR> 
<CLOSE ATTRIBUTE LIST> 

p \ <SLASH> I <EMPTY> 

{CLOSE HOQE> 
! CRUNCH I ROLLOUT I PURGE I REMOTE 

REEL 1 RELEASE i PURGE I RErfOVE 
I NO REWIND t LOCK 



FORMAT OPTIONS: 



CLOSE oeclared_file; 

There is no default. If LOCK is specified as part of the 
file attributes* the file is LOCKed if the program 

terminates abnormally. Otherwise* the file is not LOCKed. 



CLOSE DECLARED FILE 



FOLLOWED 8/ 

C OR ONE OF 



ROLLOUT 

CRUNCH 

IF_NOT_CLOSEO 



ANO/OR ONE OF: 



REEL 

RELEASE 

PURGE 

REMOVE 

NO_REWIND 

LOCK 



If more than one option is specified* only the final 
one is used dy the compiler. 
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Files need not be explicitly closed. However/ closing a file 
when finished with it will free memory space for other uses. 



BURROUGHS CORPORATION 
COMPUTED SYSTEMS GROUP 
SANTA BARBARA PLANT 

READ STATEMENT 



9-6 

COMPANY CONFIDENTIAL 

B18C0/8U00 SDL (BNF Version) CF) 

P.S. 2212 54C5 



<fi£AO STATEM£NT> ::= 



<READ PART> : r 



<R£AO SP€CiFIER> ::= 
<FILE OESIGNATOR> : : = 
<CISK READ SPECIFIER> ::= 

<RECGRO ADDRESS P4RT> :: = 

<RECGRD ADDRESS> ::^= 
<REMGTE RE^D SPECIFIER> : 

<R£MOTE KEY P ART> : := 

<REMOT£ KEY> ::= 

<QUEUE READ SPECIFIER> ::= 



<aUEU£ FAMILY 
MEMBER PART> :: = 



<QUEUE FAHILf «EK3£R> 
<RESULT MASK>::= 



<READ PART>; 
I <READ PART>;<ON SEGUENCE> 
I <RE4D PARTxRESULT MASK>; <ON SEQUENCE> 

<READ SPECIFI£R> 
I <DISK READ SPECIFIER> 
I <REHOT£ READ SPECIFIER> 
I <QUEU£ READ SP£CIFIER> 

READ <F1LE DESIGNATQR> 
(<AODRESS GENERATOR>) 

<FILE IDENTIFIED 
I <SHITCH FILE IO£NTIFIER> ( <£XPRESS ION> ) 

READ 

<FILE D£SIGNAIOR> 
<RECORO ADDRESS PART> 
C<ADORESS GENERATORS 

<£MPTY> 
I KRECORD ADDRESS>3 

<EXPRESSION> 

READ <FILE OESIGNATOR> 
<R EMOTE KEY PART> 

(<ADDR£5S G£N£RATOR>) 

<EHPTY> 
1 KREMOTE KEY>] 

<AOORESS G£NEKATOR> 

READ <FIL£ DESIGNATOR> 
<£U£U£ FAHILY MEM3ER PART> 
<<ADDRES5 GENERATOR>) 



<EMPTY> 
I K9UEUE FAMILY MEMBER>1 

<£XPRESSION> 

'aITH RESULT MASK <AOORESS GENERATOR> 
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The <REAO STATEMENT> provides the necessary information to read a 
file: A file identifier* record address* data information* and 
instructions to be executed if an end-of-file or 
is d et ec ted. 



a parity error 



The <READ 5TATEMENT> separates files into four categories: disk 
files* remote files* queue files* and all others (card* tape* 
papertape* etc.). If the file attributes indicate a random disk 
file* the user may specify <REC0R0 A00RESS>. In all cases* the 
user need only give the <FILE DESIGNATOR and <A0DRESS 
GENERATORS 



If the file is of type REMOTE* and the REMQTE_K£Y ATTRIBUTE is 
set then a <SEMQTE KEY> may be used. (For the format of this* 
see the discussion under REM0TE_KEY in the FILE DECLARATION 
SECTION.) If the REM0T£_KEY attribute is not set* then a <REMQTt 
KEY> way not be used. After performing the read* the REMOTE KEY 
will have been stored in the field specified as the <PEJ*0TE KEY>. 

If the file is of type QUEUE and is a multi-queue family* then a 
<QUEUE FAMILY KEMSER> may be used. This is an expression whose 
value will specify which member of the family to reaa from. If 
this is omitted* then the oldest message in all of the queues 
will be read. 



If the <HE5ULT MASK> 
exception in the ma sk 



option is used* the occurrence of an 
is signalled by the ON EXCEPTION sequence. 
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<WRITE STATErtENT> ::= 



<WRITE PART> ::= 



<WRITE SPECIFIER> ::= 



<FIL£ OESIGNATQR> : := 



<CARRIAG£ CONTROL P4RT> 



<CARRI4GE CONTROL 
SPECIFIER> :: = 



<SKIP-TO-CHANNEL> : : = 
<CHANNEL NUM3ER> :: = 
<CISK WRITE SPECIFIER> 

<RECORD ADDRESS PART> 

<RECORO AOORESS> ::= 

^REMOTE WRITE 
SPECIFIER>: : = 

<RE?4GTE KEY PAftT>::= 

<REMOTE KEY>: := 
< QUEUE WRITE 



<WRITE PART>; 
I <WRITE PART>;<0N SEQUENCE> 
1 <WRIT£ PART> <RESULT MASK>; 

<ON S£QUENCE> 

<WRIT£ SPECIFIER> 
I <DISK WRITE SPECIFI£R> 
I <R£,40TE WRITE SPECIFIER> 
( <QUEUE WRITE SPECIFIER> 

WRITE <FIL£ DESIGNATOR> 
<CARRIAGE CONTROL PART> 
(<EXPRESSION>) 
« WRITE <FILE I0ENTIFIER> 
<CARRIAGE CONTROL PART> 

<FILE IDENTIFIED 
I <SWITCH FILE IDENTIFIER> ( <£XPR£ SS ION> ) 

<EMPTY> 
! ^CARRIAGE CONTROL SPECIFIER> 



NO I SINGLE I DOUBLE ! PAGE 
\ <SKIP-TU-CHANf*EL> 1 NEXT 

<CHANNEL NUH9ER> 

L I 2 i 3 I ... I 11 I 12 

WR I T£ 

<FILE DESIG,NATOR> 

<RECORO AOORESS PART> 

C<EXPRESSION>) 

<EMPTY> 
I KRECGRD ADORESS>3 

<£XPRE5SI0N> 



WRITE <FILE DESIGN4TOR> 
<REMOTE KEY PART> 
(<EXPRESSION>) 

<EMPTY> 
i C<REMOTE KEf>J 

<AOORESS GENERATQR> 
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SPECIFIERS : = 



<FILE D£SIGNATQR> 



<TOP> ::= 

<QU£UE FAMILY 
NEM8ER PART>: := 



<GUEUE FAMILY MEMBER> 
<RESULT *ASK> :: = 



WRITE <FIL£ D£SIGNATOR> 

<QUEUE FArflLY MEMBER PART> <TOP> 

C<AODRESS GENERATORS 

<FILE IDENTIFIED 
1 <SWITCH FILE IO£NTIFIER> C <EXPRE SSION> ) 



<EHPTY> 



TOP 



<£MPTY> 
I CcQUEUE FAMILY MEMBER>] 

<£XPRESSION> 

WITH RESULT HASK <AODRESS G£NERATGR> 



The < VIR I TE STATEMENT> provides the necessary information to write 
a file. The <WRITE STATEMENT> treats disk files separately fro* 

other file types by allowing the user the option of specifying 
<REC0RD A00RESS> on his random disk files. The <CARHIAGE CONTROL 
PART> is intended for use with a printer file. 



If the 
set th en 
see the 

sect ion. ) 
KEY> iray 
to which 



file is of type REMOTE* and 
a <R EMOTE K£Y> may be used. 



the REN0T£_KEY attribute is 

(For the format of this* 

discussion under REMOTE_KEY in the FILE DECLARATION 

If the REtfOTE KE i attribute is not set* then a <REMQTE 



not be used. The <REH0TE KEY> 
the write is to be performed. 



will specify the terminal 



If <DISK WRITE SPECIFIER> is used when the actual device is a 
data recorder* the <REC0R0 A00RESS> will be used to select a 

stacker. 



If the file is of type QUEUE and is a multi-queue family* then a 
<QU£UE FAHILY MEM8£R> may be used. This is an expression whose 

value will specify which meirber of the fairily tc write to. If 

TOP is specified* the message will be written to the front of the 

queue. 



If the <EN0-0F-PAGE PART> is set in the file attributes* then 
when end-of-paqe is detected on a printer file* the <E0F PART> 
will be executed. This facilitates* for example* printing totals 
and/or headings without keeping a line counter. 
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If the <VESULT ^ASK> option is used* the occurrence of an 

exception in the irask is signalled by the ON EXCEPTION sequence. 

EXAMPLE: 



WRITE PRINTOUT SINGLE (PRINT LINE); 
ON EOF do; 

WRITE PRINTOUT; 2 SKIP A LINE: 
WRITE PRINTOUT PAGE (TOTALS); 
WRITE PRINTOUT DOUBLE (HEADER); 

end; 
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<SEEK STATEMENT> 



SEEK 

<FILE D£SIGNATOR> 

KRECORD ADORESS>3 



<FILE OESIGNATOR> 



FILE IOENTIFIER> 
I <SWITCH FILE IDENTIFIER> ( <EXPRE SS ION> ) 



<RECCRD AODRESS> 



<EXPRESSION> 



The <S£EK STATEMENT calls up a record from a randoir disk file in 
preparation for a read on that record- This statement should 

only be used with disk files that are being read using a random 
access technique. 



A <SEEK STATEHENT> performed i mined i a tel y prior to a <REAO 
STATEPENT> is less effective than merely reading the record. 
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ACCEPT STATEMENT 



<ACCEPT STATEMENT> 



ACCEPT <AOORESS GENERATOR> 



The <ACCEPT 5TAT£M£NT> causes the execution of a program to halt 
until the appropriate information is entered via the SPO by the 
operator. The message keyed in will be read into the area 
specified by the <ADDRESS GEN£R4fOR> following the reserved word 
ACCEPT. 



See ADDRESS tf4RIA8LES for the syntax of the <AQ0RESS GENER4TQR> 
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<DISPLAY 5T«TEM£NT> : := 



DISPLAY 
<CRUNCH 



<EXPRESSION> 
SPECIFIER> 



<CRUNCH SPECIFIED :: = 



<EMPTY> 

p CRUNCHED 



The <OISPLAY 5T«TErtENT> prints an output message on the SPO. As 

noted* the <CRUNCH SPECIFIER> is optional. If * CRUNCHED is 

specified* the system wilt delete trailing blanks and substitute 
one blank for each occurrence of multiple embedded blanks. 
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SPACE STATEMENT 



<SPACE STATEMENT> 



<SPACE PART>; 
J <SPACE PART>; <0N SEQUENC£> 



<5PACE PART> ::= 



SPACE <FILE DESIGNATOR> 
<SPACING SPECIFIER> 



<FILE DESIGNATQR> 



<FILE IDENTIFIED 
I <SWITCH FILE IDENTIFIER>(<EXPRESSIQN>> 



<SPACING SPECIFIER> 



EXPRESSION I TO <EXPRESSION> 
I TO EOF 



The <SPAC£ 
records i n a 



STATEM£tfT> 
sequent i al 



al lo ws 
file. 



the user to skip over certain 



The <SPACIMG SPECIFIER> may take three forms- An <EXPRESSION> 
alone will indicate the number of records to be spaced- It may 
be a negative number indicating reverse spacing. TO <EXPR£S5IQN> 
will always be a positive number and indicates the number of the 
record to space to. T0_E0F will cause the file to space to its 
curr en t end. 
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<SKIP STAT£M£NT> 
<FILE DESIGNATOR> 



SKIP <FILE IDENTIFIER> TO <CHANNEL NUMBER> 

<FILE ID£NTIFI£R> 
I <SWITCH FILE IDENTIFIER> ( <£XPR£SS ION> ) 



<CHANN£L NU.M3ER> 



1 I 2 ! 3 I 



I 11 I 12 



The <SKIP STATEM£NT> causes the line printer to skip to a 
specified channel number on its carriage tape. The channel 
numbers control the vertical spacing of data on a printed page 
and are defined by the carriage tape on the device. 
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ON SEQUENCE 



<0N SEQUENCE> 



<0N CLAUSE> <EXECUTA8LE STATEMENT> 
<0M SEQUENC£> <0N CLAUSE> <EX£CUT- 
TA8LE STATEMENT 



<0N CLAUSE> : := 



ON EOF I ON INCOMPL£TE_IO 
ON EXCEPTION I UN EXCEPTION 
(<STATU5>) 



OTA TU5> 



<ADDRESS GENErt«TQR> 



An OH SEQUENCE is used to examine the status of the I/O requested 
by the preceding statement. When any of the <0N CL4USE>s are 
true, the corresponding <£XECUTA8LE STATEHENT> wilt be executed 
before proceeding. Only one condition will be true. If <STATUS> 
is requested in ON EXCEPTION, a 2A«bit result describing the 
exact exception will be assigned to the given < ADDRESS 
GENERATORS 



The EXECUTABLE 5TATEMEMT>s of the <ON SEQUENC£> are considered 
subordinate to the <WRITE STATEMENTS Therefore, segmentation of 
these statements is temporary (See THE SEGMENT STATEMENT). 



Note: Exceptions may be masked by 

the file declaration. 



the EXCEPTION_MASK clause in 
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<EXECUTAOLL' STATEMENT 
LIST> :: = 



EXECUTABLE STATEMENT> 



<EXECU TABLE STATEMENT> 
<EXECUTA9LE STATEMENT 
<£XECUTABLE STATEMENT LIST> 



ASSIGNMENT STATEMENT> 

<I/0 CONTROL STATEMENT 
<SEGMENT STATE*ENT> ::= 



<D0 G 

<GROU 

<IF S 

<CASE 

<ASSI 

<REFE 

<REDU 

<EXEC 

<EX£C 

<I/U 

<MOOI 

<NULL 

<FILE 

<STOP 

<ZIP 

<SEAR 

<ACCE 

<ARRA 

<CORO 

<5EGM 

<EXEC 



ROUP>; 
P TERM 
TATEME 
STATE 
GNMENT 
R STAT 
CE STA 
UTE-PR 
UTE-FU 
CONTftO 
FY INS 
STATE 
ATTRI 
STATE 
STATEM 
CH STA 
SS FIL 
Y PAGE 
UTINE 
ENT ST 
UTABLE 



IN 

NT 

HE 

c 

EM 

TE 

GC 

NC 

L 

TR 

ME 

8U 

ME 

EN 

TE 

E 

T 
ST 
AT 



ATI 

>; 

NT> 
TAT 

ENT 

MEN 

EDU 

TIO 

STA 

UME 

NT> 

TE 

NT> 

t>; 

MEN 
HEA 
YPE 
ATE 
EK£ 
TAT 



C.N STATEMENTS 



EMENT>; 

>; 

t>; 

re statements 

n statement>; 

TEMENT> 

nts>; 

STATEMENTS 



t>; 

DER statements 

STATEMENTS 
MENTS 
NT> 
£MENT> 



SEE ASSIGNMENT STATEMENTS 

AND EXPRESSIONS 

SEE I/O CONTROL STATEMENTS 

SEE THE SEGMENT STATEMENT 
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DH GROUPS 



<C0 GROUP> ::= 



<GROUP H£AD> 
<GROUP ooor> 



<GR0UP HEAO> 



<GROUP KAtfE> 
<F0ftEVER PART>; 



<GK0UP NAME> 



<FOREVER PART> :: = 



DO 
I DO <GROUP I0ENTIFIER> 

<E.MPTY> 
! FOREVER 



<GROUP ID£NTIFIER> 
<GHOUP 8GDY> ::= 



<IOENTIFIER> 

<EXECUTABLE STATEMENT LIST> 
<GROUP ENDING> 



<G3QUP ENDING> :: = 



END 
I END <GROUP IDENTIFIED 



The <D0 GROUP> is a collection of <EXECUTA3L£ STATEMENTS which 
functions as a routine. It is executed once urless FOREVER 
appears after the <GRQUP NAME>. 



If l-CREVER is presents the <D0 GPOUP> will be executed 
iteratively until a specific condition is met. Only a <GRQUP 
TERMINATION STATEMENT (UNDO) or a <TYP£D PROCEDURE RETURN 
STATEHENT> (RETURN) can get the program out of this loop. See 



the following example: 



DO THIS forever; 

READ CARD (A); ON EOF UNDO; 
IF 55 GTR aUHP X 

THEN WRITE PRINTER (A); 
ELSE do; 
xi i; 
write printer page (a); 

en a; 
END this; 



If it is necessary to execute the statements in a <D0 GROUP> from 

different points in the program* more efficient code is generated 

by making the body of the group a procedure rather than by 
repeating the <D0 GR0UP>. 
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RESTRICTIONS: 



I. 



2. 



If a <GR(JUP IDENTIFIED is included in the <GROUP 
NANE>* it must also appear in the <GR0UP ENDING>. 



If the <GR0UP NAHE> does not include an 
the <GROUP END1NG> must not contain one. 



i dent i f i er * 



FOREVER is not a reserved word and may appear as the 
<GR0UP IDENTIFIED. 00 FOREVER; is considered to be 
the <GRQUP H£AD> of an un-named* iterative <0G 
GR0UP>. DO FOREVER FOREVER is a legal heading for a 
named* iterative group. 



4. 



5. 



Nested <D0 GR0UP>s may 
identifiers. If this occurs* 
appear on the program listing. 



not have dupt i ca t e 
a warning message will 



<C0 GR0UP>s may be 
<G.*0UP TERMINATION 
o f lb I evel s. 



nested 32 levels deep. However* a 
STATEHENT> can UNDO only a maximum 
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<GROUP TERMINATION 
STATE*ENT> ::= 



<GR0UP IDENTIFIED 



UNDO 
1 UNCO <GROUP IOENTIFIER> 

<ID£NTIFIER> 



The <GROUP TERMINATION STATEMENT> will cause the execution of a 

<CO GR0UP> to cease* and will transfer control to the next 

statement following the <D0 GR0UP> which has teen UNDONE. The 
statement may take one of three forms: 



1. UNDO will transfer control out of the <D0 GR0UP> 
which contains the statement* 

2. UNDO <GriOUP I0ENTIFIER> takes control out of the <D0 
GR0UP> specified by the identifier. 

3. Another form* UND0O)* is now considered obsolete. 
It transferred control out of the outermost <00 
GR0UP>. 

Note: UNDO <ID£NTIFIER> can undo a iraxiiruff of 16 levels. 



EXAMPLE: 

1. DO one; 

2. DO two forever; 

3. IF <EXPRESSI0N> THEN 

a. oo three; 

5. CASE <EXPRESSION>; 

6. UNDO; /* SAME AS UNDO THREE; */ 

7. UNDO two; 
3. END CASE; 

9. END THtfEE; 

10. END two; 

11. end one; 



Execution of line 6 transfers control to line 10. 
Execution of line 7 transfers control to the statement 
following line 11. 
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<IF STATEMENT> ::= 



<IF CLAUSE> 

<EXECUTABLE STATEMENT> 

<IF CLAUSE> 

<EXECU TABLE STATEMENT> 

ELSE <EX£CUTA3LE STATEKENT> 



<IF CLAUSE> : : = 



IF <EXPRESS10N> THEN 



The <EXPRESSIGN> is evaluated, 
result is 1 (i.e.* true)* 

executed* If the low-order bit 
following ELSE (if present) 



If the low- order bit of the 

the statement following THEN is 

is (i.e.* false)* the statement 

is executed. If the result of 



the<EXPRESSION> is false* and the ELSE part is omitted* control 
is transferred to the next statement after the <IF STATEMEM>. 



< IF STATEMENTS may be nested. The outermost < IF CLAUSE> and the 
corresponding ELSE* if any* are on Nesting Level 0. The 

EXECUTABLE STATEtfENT>s following THEN and ELSE are on Nesting 
Level l. Nesting may be no deeper than 32 levels. 

When using nested <IF STATEhENT>s* the user must maintain 
correspondence between the delimiters THEN and ELSE on each 
level. The innermost ELSE will always be associated with the 
innermost THEN. From this point continues an outward progression 
(i.e.* from highest nesting level to lowest) of THEN-ELSE 
asso ci at i on. 



Thus* if an <IF STATEMENT> on Nesting Level N is to have an ELSE 
associated with it* then e>/Qry <IF STATEMENT> on a nesting level 
greater than N must also have ELSEs associated with there. If the 
user wishes to execute nothing on a false condition* then ELSE 

followed by a <NULL STAfEMENT> may be used. 
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EXAMPLE 



Let £-1* £-2* E-3, and E-4 be <EXPRESS IOM> s* 
and S-4 be EXECUTABLE STATEMENTS. 



and let 5-2, S- 3 



IF E-l 
THEN IF 



E-2 
THEN IF E-3 

THEN IF 



ELSE 



ELSE 
S-2? 



E-4 
THEN S-4; 

else; 
s-3; 



Alt statements here are the IF-THEN-ELSE type* 
IF which has no corresponding ELSE. 



except the first 
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SiSE SIATEMENJ 



<CASE STATEMENT ::= 



<C»SE HEAO> 

<case eoor> 



<CASE HEAD> : 
<CASE BODY> : 



CASE <£XPRESSION> 

<£XECUTABLE STATEMENT LIST> 
<CASE ENDINO 



<CA5E ENOING> 



END CASE 



The <EXPRE5SI0N> serves as an index into the list of EXECUTABLE 
5TATEMENT>s. The statement selected is executed* and the others 
ignored. Control is then transferred to the statement following 
the <CASE EN0ING> unless* of course* the statement causes a 
RETUfi.N or an UNDO to soma other location. 



If there are N 
of the value of 



number of statements in the list* then the range 
the <EXPR£3SI0N> lay be fro* through N-l. 



The statements in the list may be any legal <EXECUTA8LE 
STATEHENT> allowed in SDL. If the user wishes to execute nothing 
in a given case* the <NULL 5TATEMENT> is an appropriate 
s t at ement. 
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<PEFER STATEMENT : := 
<REF vMR>:: = 



REFER <REF VAR> TO <ADDR£SS GENERATOR> 
<IOENTIFIER> 



The statement wilt make <ADORESS G£N£RATOR> become the new 
referent of <R£F VAR>, Since an <ADDRESS GENERATOR> in SOL can 

locate any arbitrary area of memory (using MAKE.OESCR IPTOR * 
indexing* etc)* the reference variable may do likewise* but in 
UPL the restriction to a safe subset of <AQCR£3S GENERATOR>'s 
also guarantees the safety of reference variables* 

The only exception to this safety is the classic dangling 
reference problem: Suppose* while executing a lexic level one 
procedure* that a reference variable declared at lexic level zero 
is bound to a locally declared referent- If that reference 
variable is then used after the procedure is exited* its referent 
will not exist and an unpredictable piece of data or garbage will 
b<& a ccessed. 



Technically* this error can only be detected at run time* but its 
occurrence can be precluded altogether D y making a strong 
restriction in the syntax: the lexic level of the <A00RESS 
GE«MEfiATGft> may not be greater than that of <REF VAR>. This 
cannot be checked for some <A00R£SS G£KERATQR>s* notably 

MAKE .DESCRIPTOR but it can be checked in all cases for UPL. 



An <A00R£SS GENERATORS NULL* 

variables way be re-bound to such 
checking for length of zero. 



is available so that reference 
Testing for NULL is done by 
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<PEDUCE STATEHENT> ::= REDUCE <Q3JECT REFEREfoCE> <SETTING 

RESULT REFERENCE PAHT> UNTIL 
<FIRST OR LAST> <EQL OR NEQ OR IN> 
<EXPRESSIQN> 
<0N EOS CYCLE PARI> 



<OBJECT REFERENCE : := <IDENTIFIER> 
<SET TIfiG RESULT REFERENCE PART> :: 



<EMPTY> I SETTING <RESULT 
REFER£NCE> 



< RESULT REFERENCE> 
<FIRST OR LAST> : := 
<EQL CR MEG OR IN> 
<0M EOS CYCLE PART> 



= <IDENTIFER> 

FIRST I LAST 

= EQL I UEQ 1 IN I = I /= 

i- <EMPTY> 1 ON £OS_CYCLE <EX£CUT«VBL£ STATEMENT> I 

ON EOS EXECUTABLE STATEMENT> 



Reduction is a flexible and efficient means for scanning 
character strinqs which uses reference variables rather than 
integers as pointers which select substrings. The basic function 
of reduction is to truncate a reference variable from the left 
until its first character satisfies some condition. No change is 
actually made to the data? the reference variable is simply 

rebound to a substring of its former referent. For example* the 
original referent of Rl is a string "ABCDEF". 

* ABCDEF * 
********* 

* 

* 

Rl 

After the statement 

REDUCE Rl UNTIL FIRST = w D w ; 



is executed the referent of Rl is "DEF". 

A 8 C D E F 
* * 

******* 

* 
Rl 
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If the character string deleted is of interest* another reference 
may be referenced to it by the variation: 

REDUCE Rl SETTING R2 UNTIL FIRST = "D*; 



Starting with Rl»s original referent* "AaCQEF*** this leaves 



* *8C*DEF* 
******** ******** 



* 
* 

R2 



* 
* 

Rl 



thus dividing the original string according to the condition 
FIRST = "D". 



The entire operation may also De done in reverse (scanning right 
to left) in which case the last character of Rl must satisfy the 
cond it ion. 

REDUCE Rl SETTING R2 UNTIL LAST = "D w ; 



results in the new binding 



* A8C0*£F* 
*********** ****** 

* * 

* * 
Rl R2 



Three types of conditions may be specified 



= scans for a character which is the same as the specified 

character. 

/= scans for a character which is different from the 
specified character. 



IN scans for a character which* when translated to by the 
specified bit table* yields a 3(1)13. See CHAR-TA8LE for a 
convenient means for specifying bit table constants. 
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In the first two cases* a single character must be given as a 
scan argument. In the third case* a bit string of length 256 
bits must be given as a table. 



The <£XPRES5I0N> must evaluate to either CH*RACTER(1) or BITC8) 

or 3ITC256) depending upon the condition type. Improper type on 

this <EXPRESSI0N> is the only possible run-time error froa 
r educt ion. 



END OF STRING 



The REDUCE statement terminates when either a character 
satisfying the condition is found or the length of the <08JECT 
R£FEH£NCE> has been reduced to zero* i.e.* it is NULL. Since the 
latter termination is often of separate interest its occurrence 
may be detected using syntax analogous to that for detection of 
special conditions on 1/0 statements. The syntax was shown 
above. The <EXECUTASL£ 5TATEMENT> is executed if and only if the 
original reference has been reduced to NULL. (If a <R£SULT 
REFERENCE> was specified* it will then refer to the original 
referent of the <0BJECT REFERENCE.) 
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If GN_EGS is used in place of 
passes to the next statement. 



E0S_CYCLE* then control always 
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dOUILl SIATEMENJS LCLEAR, BUMP* e£CREMENJi 



<MOOIFf INSTRUCT IQM> : := 

<CLEAR STATEMENT> ::= 
<ASRAY IDENTIFIER LIST> 



<CLEAR STATEHENT> 
! <3UHP SrATEMEN7> 
I DECREMENT STATENENT> 

CLEAR <ARRAY IDENTIFIER LIST> 

<AR«AY IO£NTIFIER> 
I <ARRAY IDENTIFIERS 

<ARRAY IDENTIFIER LIST> 



As the syntax indicates* the <CLEAR STAIEMENT> may only clear 
arrays. If the array has been declared bit or fixed* zeroes are 
moved to each element. If it was declared as character* blanks 
are moved to each element- Paged arrays may not be cleared- 



<8UMP STATEKENT> ::= 
<A0DR£SS VARIABLE> :: 
<M00IFIER> ::= 

<D£CHErt£NT STATEM£NT> 



BUNP <ADDRESS V AR I *3L£><MUDIFIER> 

See ADDRESS VARIABLES 

<EMPTY> 
I 6Y <EXPRESSIGN> 

DECREMENT <AD0R£SS V A« I ABLE><M0D IF I £R> 



The bump and decrement statements perforn the same functions as 
their counterparts in the <EXPRESSION> C6UMP0R and OECREMENTOrt ) . 
See those sections for specific usage. Since these constructs 
exist as statements in their own rights* and not merely as parts 
of the <EXPRESSIGN>> they are included here. 
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NULL STATEMENT 



<NULL STATEWENT> ::= 



The semi -col on is considered to be a statement in its own right* 
It may be used in an/ construct where the syntax requires that an 
<EXECUTABLE STATEM£NT> be present* but the user wishes to execute 
nothing. It is most commonly used in the <IF STATEMENT> and the 
<CASE STATEMENTS but may also be functional in the read* wr i t e * 
and space statements. Refer to the individual descriptions for 
mare specific details. 



EXAMPLE: 



CASE EXPRESSIONS 

IF <EXPRESSI0N> THEN; 

ELSE <STATEMENT>; 
? 

oo; 

<EXECUTA9L£ STATEMENT LIST> 

end; 
END case; 



2CASE 

2CASE 1 
%CASE 2 



Notice that the above <CASE STATEMENT contains three <EXECUTA8LE 
STATEMENT^: An < IF STATEMENTS a < M U l. L STATEMENTS and a <0O 
GROUPS If the value of the <EXPHESSI0N> following CASE is If- 
then nothing is executed. In addition* the ; following THEN is 
a <MULL STATEMENTS 
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EILE AJTRiaUTE SliTEMENJ (£HANGE SliTTEtfENIl 



<FILE ATTRIBUTE 
STATENENT> :: = 



CHANGE <FIL£ DESIGNATOR> 

TO (<DYNAMIC FILE ATTRIBUTE LIST>) 



<FIL£ DESIGNATOR> : : = 



<FILE IDENTIFIED 
I <SWITCH FILE iDENTIFIER> ( <£XPR£SS ION> ) 



<DYNAMIC FILE 
ATTRIBUTE LIST> : : = 



<DYNAHIC FILE ATTRI3UTE> 
OYNAMIC FILE ATTRIBUTED 
<DYNAMIC FILE ATTRIBUTE LIST> 



<0YNAWIC FILE 
ATTRIBUTED :: = 



<DYNAMIC HULTI-FILE IDENTIFICATION PA«T> 

1 <DYNAMIC FILE IDENTIFICATION PART> 

I <OYNAHIC PACK_ID PART> 

I <OYNA,1IC DEVICE PART> 

1 ^DYNAMIC TRANSLATION PART> 

t <DYN4rtIC FILE PARITY PART> 

I <DYNAMIG VARIABLE RECORD PART> 

J <D YN AM IC LOCK PART> 

t <DYNAHIC BUFFERS PART> 

! <OYMAMIC SAVE FACTOR PART> 

I <DYNAMIC RECORD SIZE PART> 

I <DYNAMIC RECORDS-PER-BLOCK PART> 

i <DYNAtfIC KEEL NUN3EK PART> 

I <DYN4MIC NUtfB£R-GF-AREAS PART> 

I <DYNAMIC 8L0CKS-PER-AREA PART> 

I <DYNAHIC ALL-AREAS-AT-OPEN PART> 

I <DYNAMIC AREA-BY-CYLINDER PART> 

1 <DYNAHIC EU SPECIAL PARI> 

I ^DYNAMIC EU.tNCREMENTED PART> 

I <DYNAMIC USE INPUT BLOCKING 
DESIGNATOR PART> 
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OYNAMIC MULTI-PACK PART> 
OYNAHIC ENO-OF-PAGE PART> 
<0YNAMIC OPEN-OPTION P«RT> 
OYNAHIC REMOTE-KEY PART> 
OYNAMIC NUM8ER-0F-STATI0NS PART> 
DYNAMIC QUEt'E-FAMILr-SIZE PART> 
<OYNAMIC FILE TYPE P4RT> 
OYNAMIC WORK FILE PART> 
OYNAMIC LA3EL TYPE PART> 
OYNAMIC INVALID CHARACTER 
REPORTING PART> 
<0YNAMIC OPTIONAL FILE P4RT> 
<0YNAMIC SERIAL NUMBER PART> 
OYNAMIC EXCEPTION MASK PART> 
<0YNAMIC QUEUE SIZE PART> 
<DYNAMIC HEADER PART> 
OYNAMIC SOFT TRANSLATE PART> 
OYNAMIC HOST NAME PART> 
<0YNAMIC OPEN ON BEHALF OF PART> 



The <F ILE ATTRIBUTE STATEHENT> allows the user to dynamically 
change the attributes of his file during the execution of his 
program. This statement may occur at any point in the program* 

out the change will not become effective until the file is 
opened. That is* if the file in question is open when the <FILE 
ATTRIBUTE STATEM£NT> is executed* then the change will not occur 
until the file is closed and re-opened. 



Each <0YNAMIC FILE ATTRI3UTE> should be consistent with the 
format and restrictions of its counterpart listed in the FILE 
DECLARATIONS. Exceptions to this are specifically stated below. 



If a ^DYNAMIC FILE ATTRIBUTE> is offitted» the attribute remains 
as it was previously set. 

It should be noted that the following process is mandatory when 
changing the attributes of an open file which is to be re-opened: 

1. Close the file with an attribute which causes space for the 
FI8 t^o hP r«mrnerit i . e^» LOCK* RELEASE* e_tc . (If CLOSE is 
used without attributes* the FIB will n^t se rebuilt from 
the FPBr and the attribute will remain unchanged). 



2. Change the desired attributes. 

3. Cpen the file. 
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<DYNAMIC MULTI-FILE 
ICENTIF ICATION P4RT> : : = 



MULTI_FIL£_ID := 

<OYNAMIC MULTI-FILE IDENTIFICATION^ 



<CYNAMIC MULTI-FILE I OENTIF IC «TION> :: = <EXPRESSION> 

<DYNAMIC FILE IDENTIFICATION PART> ::= FILE 10 := <OrNAMIC FILE 
IDENTIFICATION 

<DYN4H1C FILE I DENT IF ICA TION> : := <EXPRESSION> 

<CrNAtfIC PACX_ID PART> : : = PACK_ID := 

<DYNAMIC PACK IOEN TIF I C ATI 0N> 

CCYNAMIC PACK I DENT IF IC A T ION> : := <EXPRE5 SI 0N> 



The <£XPRE5SI CN>s of these four attributes are each assumed to be 
character strings- If they are bits* however* they will be 

converted to characters in the following manner: 

1. The bits are left justified. 

2. Trailing blanks are appended™ However* if the bits 
are not a multiple of 8* then the string will appear 
to be invalid characters. 



EXAMPLE: 

CHANGE F TO CFIL£_ID := 3F0E3); 

WILL RESULT IN THE <FILE IDENTIFICATION 

BEING EQUAL TO: 



3F 0E40 40 40 40 40 40 40 40 43 
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<CYNAMIC DEVICE P AR T> :: = OEVICE := <OYNAMIC DEVICE SPECIFIER> 

<DYNAMIC OEVICE SPECIFIED ::= <£XPRESSION> 



The low-order 10 bits of the <EXPR£SSION> must be coded as 
follows (where the variant is the high order four bits* and the 
hardware is the low-order six)* 



OEVICE 



CARD 
TAPE 
TAPE_9 

TAPE^7 
TAPE_PE 
TAPE NRZ 
DISK 

DISK_PACK 
DISK_FIL£ 
CISK.PACK^CENTURY 
DISK_PACK_CAELU3 

PR IN TER 



PRINTER FORMS 
CARD_REAOER 
CARD_PUNCH 
CARD_PUNCH FORMS 
PUNCH 

PUNCH FORMS 
REAPER PUNCH, PR INTER 
"* HtAJtR~PUNCH~PR( INTER FORMS 



PUMCH.PRINTER 

PUNCH PRINTER FORMS 

PAPER_TAPE_PUNCH 

PAPER TAPE PUNCH FORMS 

PAPER_TAPE__R£ADER 

READER_96 

sorter reader 
reaoerIsorter 
cassette 

REMOTE 
SUEUE 



HARDWARE 


21 


27 


28 


25 


26 


Zk 


U 


16 


12 


15 


U 


a 



VARIANT 



6 

2.1 
2 
2 
2 
2 



5 
5 

20 
20 
6 
19 
10 
10 
30 
63 
61 



= SERIAL 

1 = RANDOM 
(SAME AS OISK) 
(SAME AS DISK) 
(SAME AS DISK) 
(SAME AS OISK) 



BACKUP 
BACKUP 
BACKUP 
BACKUP 



TAPE 
TAPE 
DISK 
TAPE 



OR DISK 



OR OISK 



HARDWARE ONLY 
BACKUP TAPE ONLY 
BACKUP DISK ONLY 
BACKUP TAPE OR OISK 
PRINTER VARIANT 



(SAME AS PRINTER) 

(SAME AS PRINTER FORMS) 

(SAME AS PRINTER) 

(SAME AS PRINTER FORMS) 

(SAME AS PRINTER) 

(SAME AS PRINTER FORMS) 

(SAME AS PRINTER) 

(SAME AS PRINTER FORMS) 

(SAME AS PRINTER) 

(SAME AS PRINTER FORMS) 
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TRANSLATION : = 

OYNArtIC TRANSLATION SP£CIFIER> 



<EXPRES5IGN> 



The tow-order 3 bits of the <£XPRESSION> determines the 
translation as follows: 

000 = EBCDIC 

001 = ASCII 
10 = BCL 



<CYNAMIC OPEN- 
OPTION PART>: :: 



<DYNAMIC OPEN- 
OPTION SPECIFIER> 



QPEN_OPTIQN := 

<DYNAMIC OPEN_QPTI0N SPECIFIER> 

<EXPR£SSION> 



The low-order 12 bits of the expression determine the type of 
open as follows Cbits are numbered from left to right within the 
12): 



BIT 



FUNCTION (IF 1) 






= 


INPUT 


1 


= 


OUTPUT 


2 


= 


NEW 


3 


= 


PUNCH 


U 


= 


PRINT 


5 


= 


NO_REWIND#- INTERPRET 


6 


= 


REVERSE, STACKERS 


7 


= 


LOCK 


8 


= 


LOCK OUT 



<DYNAHIC PARITY PART> 



PARITY := <QYNA,MIC PARITY SPECIFIER> 
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<EXPRE5SI0N> 



VARIABLE := 

<DYNAftIC VARIABLE RECORO SPECIFIER> 



<CYNAMIC VARIABLE 
RECORO SPECIFIER> : 

<CYMAHIC LOCK PART> 



<£XPRESSION> 

LOCK := <DYNAMIC LOCK SPECIFIER> 



<DYNAMIC LOCK 
SPECIFIER> :: 



<EXPRESSION> 



<CYNAFIC ALL-AREAS- 
AT -OPEN PART> ::= 



4LL_AREAS_AI_0P£N := 

<OYNAHIC ALL-AREAS-AT-OPEN SPECIFIER> 



<CYNAKIC ALL-AREAS" 
AT-OPEN SPECIFIER> 

<OYNAHIC AREA-3Y 
CYLINDER PART> ::= 



EXPRESSION 



AR£A_BY_CrLIND£R := 

OYNAMIC AREA-BY-CYLINDER SPECIFIER> 



<DYNAMIC AREA-BY- 

CYLINOER SPECIFIER> 

ADYNAMIC USE_INPUT 

CLOCKING PART> ::= 



< DYNAMIC USE_INP'JT_ 
BLOCKING SPECIFIER> 



<£XPR£SSIQN> 



US£_INPUT_8L0CKING := 

OYNAMIC USE INPUT BLOCKING SPECIFIER> 



EXPRESSION 



<DYNAMIC END-CF- 
PAGE PART> ::= 



ENO_OF PAGE ACTION := 

<OYNAHIC ENO-UF-PAGE SPECIFIER> 



<DYNAMIC END-OF 
PAGE SPECIFIER> 



<EXPRESSION> 



<DYNAMIC WJLTI- 
PACK PART>::= 



MULTI_PACK := 

<DYWAWIC MULTI-PACK SPECIFIER> 



<CYNAMIC MULTI- 
PACK SPECIF IER> 

<DYNAKIC REMOTE 
KEY PART>::= 



<EXPR£SSIQN> 



REMOTE_KEY : = 

<DYNAMIC REMOTE-KEY SPECIFIED 
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<OYNAMIC REMOTE' 
KEY SPECIFIERS 



<EXPRESSION> 



<DYNAKIC WORK 
FILE PARf>:: = 



KORK FILE : = 
<DYNAMIC WORK 



FILE SPECIFIER> 



<DYNAMIC WORK 

FILE SPECIFIER>:: = 



<EXPRESSION> 



Only the tow- order 
to determine the 
are as follows: 



bit of each of the above <expression>s is used 
value of the attribute. The code definitions 



PARITY 







= 


ODD 






1 


= 


EVEN 


VARIA3LE 







sr 


FIXEO 






1 


= 


VARIABLE 


LOCK 







= 


NOT LOCKED 






1 


= 


LOCKED 


ALL_AREAS_AT 


.OPEN 





= 


ALLOCATE ARE 






1 


= 


ALLOCATE ALL 


AREA_SY_CYL'f N9ER 





= 


PUT AREA ANY 






1 


= 


ONE AREA PER 


USE_INPUT_BL0CK1NG 





= 


TAKE ATTRI9U 






1 


= 


TAKE ATTRIBU 
See FILE ATT 


E f,C_CF_PAG£_ 


ACTION 





= 


NO DETECTION 






1 




BRANCH TO <E 
STATEMENT A 
PRINTER FILE 


MULTI_PACK 




1 


= 


PLACE FILE 









= 


PLACE FILE 


REMOTE KEY 




I 


= 


REMOTE KEY I 
AND WRITES T 









= 


REMOTE KEY I 


W0RK_FIL£ 




1 


= 


INSERT J03 N 









= ' 


LEAVE FILE I 



AS AS NEEDED 

SPACE AT OPEN TIME 
WHE3E ON DISK 

CYLINDER AT BEGINNING 
T£S FrtGM FILE DECLARATION 
TES FROM DISK FILE HEADER 
RI3UTES • 

OF END-OF-PAGE 
OF PART> OF <WRITE 
T END OF PAGE ON 

ON MULTIPLE DISK PACKS 

N SINGLE DISK PACK 

S PRESENT ON ALL READS 

THE FILE 

S NOT PRESENT 

UMBER IN FILE IDENTIFIER 

OENTIFIER ALONE 



<CYNAHC EU_SPECIAL 
PART> ::= 



FU_SPECIAL := 

<DYNAMIC £U SPECIAL SPECIFIER> 

EU. SPECIAL := 

<DYNAMIC El 1 SPECIAL SPECIFIER> 

EU_0RIVE : = "" 

<DYNAMIC EU SPECIAL SPECIFIER> 



<CYNAMIC EU_SPECIAL 
SPECIFIER> :: = 



<EXPR£SSIQN> 
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<OYNAKIC £U_QRIVE 
SPECIFIED :: = 



<EXPRES5I0N> 



<OYNAMIC EU 
INCREMENTED PART> 



EU_INCR£M£NTED := 

OYNAMIC EU^INCREMENTED SPECIFIED 
I EU INCREMENTED := 

<QYNArtIC EU„INCRE«ENTED SPECIFIER*-* 

£U_INCREMENT := 

<DYNAHIC EU INCREMENT SPECIFIER> 



<CYNAMIC EU INCREMENTED 
SP£CIFIER> ::= 



<EXPRESSIGN> 



< DYNAMIC EU_ 
INCREMENT SPECIFIED 



<EXPRESSION> 



The low-order bit of the EU_SPECIAL and El^INCKEHENTED specifiers 
serves to indicate whether or not the attribute is set (C=Qff* 
l=0n ) . If the attribute is off* then inclusion of the EU_DRIVE 

and £U_INCR£MENT specifiers is unnecessary. 



If these attributes are set on* then the drive and increment 
parts should be included* and should conform to the 



specifications in the FILE DECLARATIONS* If 

<GYNAMIC EU_DRIVE SPECIFIER> is not changed- If 

EU INCREMENT SPECIFIER> has never been set (i.e.* 



off i t ted* th e 

the <DYNAMIC 

it is 0)* then 



it is set to one* otherwise* it too remains unchanqed. 
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<CYN4PIC BUFFERS PART> 

<CYNANIC NUMBER 
OF BUFFEHS> : := 

<0YNA*<IC SAVE 
FACTOR PART> :: = 

<DYMAfIC SAVE FACTOR> 

CCYNAHC RECORD 
SIZE PART> ::= 

<DYNA«MIC RECORD 5IZE> 

<CYN4^IC RECORDS- 
PER-8LQCK PART> ::= 



<OYNAKIC RECORDS- 
PER-BLOCK> ::= 

<DYN4MIC REEL 
NUMBER PART> ::= 

<CYNAMIC REEL NUM8ER> 

<OYNA*IC NUM8EH-0F- 
AREAS PART> : := 



<CYNAfIC NUMBER- 
OF-APEAS> : := 

<OYNAMC 8L0CKS-PEH- 
AREA ?ART> ::= 



<CYNAHIC BLOCKS-PER 
AREA> :: = 

<DYNAMIC QUEUE-FAMILY 
SIZE PART>::= 



<DYNAHIC QUEUE- 
FAMILY-SIZE>: := 

<OYNAHIC NUM8ER-0F" 
STATIONS PART>::= 



cCYNAMIC NUH3ER-OF- 
STATIQ.NS SPECIFIER>:: 
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BUFFERS := <DYNAMC NUMBER OF 3UFFERS> 



<EXPRESSIOM> 

SAVE := <DYNAMIC SAVE FACTOR> 
<EXPRESSION> 

R£CORD__SIZE := <OYNAMIC RECORD SIZE> 
<£XPRESSION> 



RECORDS.PER.BLOCK := 
<OYNAHIC RECOROS-PER-BLOCK> 



<EXPRESSION> 

REEL := <DYKMIC REEL NUf*8ER> 
<EXPPESSION> 



NUM8ER_0F_AREAS := 
<9YMAMIC NUMB£R-OF-AREAS> 



<£XPRESSION> 



8LQCKS_PER_AREA := 
<OYNAMIC 6L0CKS~PER-AREA> 



<EXPRESSI0N> 



QUEUE.FAMILY SIZE := 
<DYNA/4IC QUEIE-F AMILY-SIZE> 



<EXPRESSION> 



NUM8ER_0F_STATI0NS := 

<0YNAHIC NUM8ER-0F-STATI0NS SPECIFIER> 



<LXPRESSIQN> 



BURROUGHS CORPORATION 
COMPUTER SYSTEMS GROUP 

SANTA BARBARA PLANT 



10-23 

COMPANY CONFIDENTIAL 

81800/B170Q SDL C8NF Version) CF) 

P.S. 2212 5^05 



v 



The above <EXPRES SION> s return a bit string which should be 
consistent with the formats and restrictions listed in the FILE 
DECLARATIONS. 

<CYNAKIC FILE TYPE PART>::= FILE_TYPE := 

<OYNAMIC FILE TYPE 5PECIFIER> 

<DYNAKIC FILE TYPE SPE CIF IER> : := <EXPRESSION> 



The value of the expression determines the file type: 
VALUE TYPE 



J 
7 
3 
9 


DATA 

INTERPRETER 

CODE 

DATA 


12 


INTRINSIC 



<DYNANIC LABEL 
TYPE PAPT>::= 



<DYNAMIC LABEL 
TYPE SPECIFIER>:: = 



LABEL. TYPE := 

<OYNAMIC LA3EL TYPE SPECIFIED 



<£XPRESSION> 



The value of the expression determines the label type 
VALUE TYPE 

ANSII 

1 UNLABELED 

2 BURROUGHS STANDARD 



<DYNAMIC INVALID 
CHARACTER REPGRTING> : : = 



<DYUAHIC INVALID CHARACTER 
REPORTING TYPE> : : = 



INVALID_CHARACTERS := 

<0YNA,4IC INVALID CHARACTER REPORT 

TYP£> 



<£XPRESSIGN> 
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The value of the expression determines the type of reporting: 



VALUE TYPE 

Report all lines containing invalid 
character s. 

1 Report all lines containing invalid 
characters and ther stop program. 

2 Report once that the file contains 
invalid characters. 

3 0on*t report that the file contains 
invalid characters. 



<0YNANIC OPTIONAL 
FILE PART> :: = 



OPTIONAL := <EXPRE5SI0N> 



The low-order bit of the expression determines whether or not the 
file may be optional. If the value is 1> the file may be 

optional; if Q* it must be present. 



<CYNA*IC SERIAL 
NUMBER PART> :: 



SERIAL := <EXPR£SSIGN> 



The expression should generate a 6-character string* each of the 
characters of which are a decimal digit. This number will be 
used as the tape serial number. 



<CYNAMIC EXCEPTION MASK 
PART> ::= 



EXC£PTIUN_HASK := <EXPRESSI0N> 



The lew order 24 bits of the value cf the expression will be used 
as the EXCEPTION NASK. See EXCEPTION MASK PART> under <FILE 

DECLARATION STATEMENT in Section 6. 
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QUEUE MAX MESSAGES := <£XPRESSION> 



Sets size for queue files. 



<OrNA*IC HEADER PART> : = 



REMOTE HEADERS := <EXPRESSION> 



Sets headers boolean for resote files- 



<OrMAMIC SOFT 
TRANSLATE PART> : := 



TRANSLATE : = <£XPRESSION> 
I TRANSLATE FILE := <EXPRESSION> 



TRANSLATE sets a boolean* turning the translation option on or 
off while TRANSLATE_F ILE changes the file-id of the translate 
table file. 



<DYNA?aC HQST_NAHE PART>::= H0ST_MtlE: = <EXPRESSION> 
Sets Host name for BNA. 



<DYNAKIC 0PEN_0N_8EHALF_0F 

P4RT>::= 0PEN_0N_8EHALF_0F:= <EXPPESSION> 

Turns the 0P£N_Q.N_8EHALF_0F Boolean on or off. 
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SISE iIiI£HENI 



<STOP STATEMENT> 



STOP 
I STOP 



<EXPRESSION> 



The <STOP STATEMENT> is a comfunicate to the MCP that the program 
has finished. It should not be confused with FINI which is the 
final statement in the program. 



STOP <EXPRES5IQM> is intended for use by the compilers only. The 
<EXPR£SSI 0N> communicates the number of syntax errors to the MCP. 
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ZIP STATEMENT 



<ZIP STATEMENT> : : = 



ZIP <EXPRESSION> 



The <ZIP STATEMENT> allows the user to pass control instructions 
to the MCP. The <EXPRESSION> should generate a character strinq 
whose vatue is a valid MCP control stateient as defined in the 
S1700 Software Ooerationai Guide. 
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<SEARCH STATEMENT> :: 
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<SEARCH RESULT MODE> 
<GN FILE PART> :: = 
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flo 



0*a 



u4*t 



? 



<SEARCH PAR1>; <0N FILE PART> 

SEARCH_D1RECTDRY (<SEARCH G8JECT>* 
<SEARCH RESULT>*<S£ARCH RESULT MOOE> 

<ADORESS GENERATOR> 

<A09RESS G£NERATGR> 

BIT I CHARACTER 

<EMPTf> I ON FILE MISSING <EXECUTAGLE 
STATEMENT 
I ON FIL£„LOCKEO <EXECUTA3LE STATEMENT 
! ON FILE MISSING EXECUTABLE STATEMENT>; 

ON FIL£_LOCKED <EXECUTA8LE STAT£MENT> 
i ON FIL£_LOCKED EXECUTABLE STATEMENTS 

ON FILE MISSING <EXECUTASLE STATEMENT> 



The <SEARCH 
infor (ration 
<5EARC* QBJECT> 



STATEMENT> allows the user to extract certain 
contained in the disk file header specified by the 



The <S£ARCH OBJECT> is expected to be 30 characters in length 
where the first 10 characters are the pack identification* the 
second 10 characters are the multi-file identification* and the 
third 10 are the file identification. File names less than 10 
characters must be lef t- j ust i f i ed in their respective fields with 
trailing blanks appended- If only one file name exists* that 
name should be lef t" j ust i f i ed in the multi-file identification 
field* and the file identification should be blank. 



The <S£ARCH RESULT> specifies the receiving field and should be 
360 bits long if bit mode is specified* or 59 bytes if character 
mode i s speci f i eel • 



The information is returned in the following format: 

j\ CC££> - "b f (4 @Oo e ^ 
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01 



ILE. 


_HEADER_FORMAT, 












02 


OPEN_TYPE 


BIT 


(24), 


1 


CHARACTER 


( I) 


02 


NO USERS 


BIT 


(24), 


1 


CHARACTER 


(2) 


02 


REC0RD_5IZE 


8IT 


(24), 


% 


CHARACTER 


(4) 


02 


RECORDS PER 8L0CK 


81 T 


(24), 


2 


CHARACTER 


(4) 


02 


EOF_PQINTER 


BIT 


(24), 


X 


CHARACTER 


(8) 


02 


S£GHENT5_PER_AREA 


BIT 


(24), 


% 


CHARACTER 


(8) 


02 


USER OPEN OUTPUT 


BIT 


(24), 


X 


CHARACTER 


( 1) 


02 


FILE TYPE 


BIT 


(24), 


% 


CHARACTER 


(2) 


02 


PERMANENT_FLAG 


BIT 


(24), 


% 


CHARACTER 


(2) 


02 


BLOCKS_PER AREA 


BIT 


(24), 


% 


CHARACTER 


(6) 


02 


AREAS_R£QUESTED 


BIT 


(24), 


% 


CHARACTER 


( 3) 


02 


AREA_COUNTER 


BIT 


(24), 


X 


CHARACTER 


( 3) 


02 


SAVE_FACTOR 


BIT 


( 2 4 ) * 


I 


CHARACTER 


(3) 


02 


CREATION DATE 


BIT 


(24), 


f, 


CHARACTER 


(5) 


02 


LAST_ACCESS_D4TE 


BIT 


(24), 


1 


CHARACTER 


(5) 



Notes This format nay be subject to change 



The <FILE PISSING PART> and <F ILE LOCKED PART> allow the user to 
specify the course of action should either of these conditions 
arise. 
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B£AD_EIL E_HE A CER * W RIJEJF IL E_HE AD ER 



<ACCESS FILE HEADER 
STATENENT> :: = 



<ACC£SS F ILE HEADER 
PART> ::= 



<FILE NAME> : := 
<CESTINATION FIELO> 
<SOURCE FIELD> :: = 
<FILE MISSING PART> 
<FILE LOCKED PART> 



<ACCESS FILE HEADER PART>; 
i <ACCESS FILE HEADER PARI>; 

<FILE HISSING PART> 
[ <ACCESS FILE HEADER PART>; 

<FILE LOCKED PART> 
I <ACC£SS FILE HEADER PART>; 

<FILE MISSING PART> 

<FILE LOCKED PART> 



READ_FILE_HEAOER 

(<FILE NAME># DESTINATION FIELD>) 
I WRIT£_FIL£_HEADZR 

(<FILE fcAME>* <SOURCE FIELO>) 

<ADDRESS G£NERATOR> 

<AOORESS GENERATOR> 

<ADOR£SS G£NE;*ATOR> 

ON FILE.H'ISSING EXECUTABLE STATEM£NT> 

ON FILE LOCKED EXECUTABLE STATEM£NT> 



The <ACC£SS FILE HEADER STATEMENT> is intended for use in systems 
programs only. It enables the programmer to either read or write 
a file header. 



The <F ILE NAM£> is expected to be a 30-character field where the 
first 10 characters are the PACK_ID# the second 10 characters are 
the MULTI-FILE IDENTIFICATION and the third 10* the FILE 

IDENTIFICATION* File names less than 1C characters are 

left-justified in their respective fields. If only one file name 
exists* it is left-justified in the multi-file identification* 
and the f i I e i dent i f i ca t i on should be set to blanks. 



The <S0URCE FIEL0> or oJESTINATION FIELD> specifies* 

respectively* the sending or receiving field* and is expected to 
be 576 to kSZ'j bits in length depending upon the number of areas 
allocated* Information is passed in the file header format. 

Refer to the 81700 MCP Manual for specifics. 
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The <FILE MISSING PART> and <FILE LOCKED PART> enable the 
programmer to specify the course of action should either of these 
cond i t ions ar i se. 



Note that extreme caution is advised when writing a file header. 
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<ARRAY PAGE TYPE 
STATEMENT :: = 



<ARRAY PAGE TYPE 
GESIGNATOR> : := 



<PAGED ARR*Y NAME> 
<PAGE NUM8£R> : := 



<ARRAY PAGE TYPE D£SIGNATOR> 
C<PAGED ARRAY NAM£>*<PAG£ NUMBER>) 



MAKE_.READ_.ONLY 
I MAKE READ WRITE 



<10ENTIFI£R> 
<EXPRESSION> 



The <ARRAY PAGE TYPE STATEMENT allows the user to mark certain 
paged array pages as READ-ONLY- When this is doner a page will 
not be written out to disk every time it is overlaid. 

MAKE_READ_WRIT£ allows the user to change information on a paged 

array* and to have that array written on disk when it is 

overlaid. It is only necessary to specify MAKE_R£AD_ WRITE after 
a MAKE_R£AD_ONLY specification. 

It is the programmer • s responsibility to ensure that the 

information in a page marked READ-ONLY is not changed. In 

addition* the user is responsible for guaranteeing correct page 
number specifications. There is no syntax check for either. 



EXAMPLE: 

OECLARE PAGED (32) P (1024) BIT(30)» Tl FIXEO 
Tl := -l? 

dc forever; 

make_rea0 only (p, bump tl); 

IF Tl = 31 THEN UNDO; 

end; 



MAKE REAO WRITE CP, 0); 
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COROUTINE STATEMENT 



COROUTINE ST ATEM£NT>: := 



<C0R0UTINE ENTRY STATE*ENT> 
1 COROUTINE EXIT STATE«ENT> 



<COROUTINE 

ENTRf STATEMENTS := 



<CGROUTINE 

TABLE SPECIFIER> ::= 



ENTER_CORQUTIN£ 

(<COROUTINE TABLE SPECIFIERS 



<ADORESS GEMERATOR> 



<COROUTINE 

EXIT STATEHENT>::= 



EXIT_CORQUTINE 

C<CORCUTINE TABLE SPECIFIERS 



The <CGRGUTINE TAGLE SPECIFIED associated 
and EXIT__CUROUTINE is assumed to describe 
f oil ow i ng for mat: 



with ENTER, 
a table 



^COROUTINE 
with the 



DECLARE 
01 



TABLE 
,02 

,02 
,02 



NUMBER QF_£NTRIES BIT(4> 
£NTRY_ACDRESS BITC32) 
PPS C0PYC16) 9IT(32> 



A, ENTER_CQROUTINE: The <C0R0UTINE TABLE SPECIFIER> is assumed 
to have the format described above. The current code 

address is pushed on to the Program Pointer Stack. The 
number of elements of PPS. COPY that is specified by 
NUMBER_OF_ENTR IES is pushed onto the Program Pointer Stack. 
The address of the next instruction is taken from 
ENTRY ADDRESS. 



B. £XIT_C0R0UTIN£: The COROUTINE TABLE SPECIFIER> is assuraeo 

to describe a table of the format given above. The current 
nesting level is stored in NUM8ER_GF_ENTR IES. The current 

code address is stored in ENTRY_ ADDRESS. The number (as 

specified by NUM8ER_0F_ENTRIES) of entries on the top of the 
Program Pointer Stack is copied to PPS_CGPr(C) through 
PPS_CGPY(NUtfB£R_GF_ENTRIES-l). If NUMB£ftIoF_EN TRIES is 0, 

then nothing is copied. An UNDO is performed, using 

NUN8ER_0F_£NTR IES as the number of entries on top of the 
Program Pointer Stack. 
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Note: Upon first execution of £NTER_C0R0UTINE, the table must 
already be set up. The easiest way to accomplish this is to make 
the first executable statement in Che coroutine to be entered an 
EXIT .COROUT INE statement. The first entrance to the coroutine is 
then accomplished by a call statement. 



Note: This is not a general coroutine mechani sff"~i .e. * It is not 
symmetric. The routine executing the EN TER_CCR CUTI NE is a master 
to the slave routine which contains the EXIT COROUTINE'S. 



Note: EXIT_CQR0UT INE can only appear within procedures with no 
parameters and no local data; i.e.* those procedures which do 
not change the Control Stack. 



EXAMPLE: 



DECLARE I FIXEO; will display 

DECLARE TABLE BIT ( A +1 7* 32 ); 
PROCEDURE SLAVE; 

EXIT_C0RQUTINE(TA8LE>; %S£TS UP TABLE 

uc forever; 

BUMP I 3Y 2; 

display decimalci,6); 
exit_c0r0utine(ta8le); zresets table 
end; 
end slave; 
procedure faster; 

slave; zcall for setup 
I := o; 
oc forever; 

8UMP I 3Y 3; 

display decihalci*6); 
enter_c0r0utinecta8le>? %uses table 
end; 
end master; 



"000003" 


CI) 


"000005" 


C2) 


"000008" 


(3) 


"C00010" 


(A) 



'5*n" C2n) 
'5*n + 3" (2n*l) 
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<EXE CUTE-PROCEDURE 
STATEHENT> :: = 

<NON-TYP£D PROCEDURE 
DESIGNATOR* : := 



<NON-TYP£D PROCEDURE 
IDENTIFIER* : : = 

FACTUAL PARAMETER PART> 
<ACTUAL PARAMETER LIST> 

<ACTUAL PARAMETER* :: = 
<ARRAY CESIGNATOR> :: = 



<NON-TYPED PROCEDURE DESIGNATOR* 



<NON-TYPED PROCEDURE IDENTIFIER> 
<ACTUAL PARAMETER PART> 



<ID£NTIFIER> 

<EMPTY> 
I (<ACTU*L PARAMETER LIST>) 

<ACTUAL PARAMETER* 
I <ACTUAL PARAMETER*^ 

<ACTUAL PARAMETER LIST> 

EXPRESSION* 
i <ARRAY DESIGNATOR> 

<ARRAY ID£NTIFI£R> 



A non-typed procedure* i.e.* a procedure which perfoms a 

function and does not return a value* is invoked through an 
<EXECUTE-PRGC£OURE STATEMENT*-. The name of the procedure is 
followed by its parameters enclosed in parens. Refer to the 
section ADDRESS AND VALUE PARAMETERS for information concerning 
passing parameters. 



For a description of the invocation of typed procedures* see 
VALUE VARIABLES. 
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<EXE CUTE -FUNCTION 
STATEHENT> ::= 



<FUNCTION DESIGN«TOR> 



<FUNCTION DESIGN ATOR> : := 



<ACCE 
<CHAN 
<CHAR 
<COWM 
<COHP 
<0C I 
<D£8L 
<DISA 

<OUMP 

<OUMP 
<ENAB 
<ERRO 

<EXEC 
<FETC 
<FINO 
<FR£E 
<GROW 
<HALT 
<HARD 
<INIT 
<MESS 
<MONI 
<OVER 
<REAO 
<ACCE 
<REFE 
<REFE 
<REFE 
<rt£IN 
<REST 
<REVE 
<SAVE 
<SAV£ 
<SORT 
<SQRT 
<SOST 
<THAW 
<THflE 
<TPAC 
<TRAN 



SS FILE 
GE STACK 
ACIER FI 
UNICATE 
ILE-CARO 
NITIATE 
4NK DESI 
BLE_INTE 

OESIGNA 
-FOR-ANA 
L£_INT£fi 
R COMMUN 
UTE OESI 
H DESIGN 

DUPLICA 
ZE-PROGR 

OESIGNA 

DESIGNA 
WARE MON 
IALIZE„V 
AGE COUN 
TOR OESI 
LAY DESI 

CASSETT 
SS-FP8 D 
R_ADDR£S 
R_L£NGfH 

R TYPE 
STATE DE 

ORE DESI 

RSE DESI 

OESIGfcA 

.STATE 

OESIGNA 
_HERGE 
_StfAP 0£ 
.PROGRAM 
AD.VECTTO 
E DESIGN 
SLATE DE 



DES 
DES 

OES 



INFORMATI 
SIZE DES 
LL DESIGN 
DE5IGNAT0 
-INFO DES 
10 DESIGN 
GNATUR> 
RRUPTS DE 

TOR> 
LYSIS 
RUPTS 
ICATE 

GNATQR> 

ATOR> 

TE CHARAC 

AM DESIGN 

TOR> 

TOR> 

ITOR DESI 

ECTOR DES 

T OESIGNA 

GNATOR> 

GNATOR> 

£ OESIGNA 

ESIGNATOR 

S OESIGNA 

DESIGNAT 
ESIGNATOR 
SIGNATOR> 
GNATOR> 
GNATOR> 
TOR> 

ESIGNATOR 
TOR> 

ESIGNATOR 
SIGNATOR> 

CESIGNAT 
R DESIGNA 
ATOR> 
SIGKATOR> 



ON DESIGNATOR> 

IGNATOR> 

ATOR> 

R> 

IGNATOR> 

ATOR> 

SIGNATQR> 

IGNATOR> 
IGNATOR> 
IGNATOR> 



TERS 0£SIGNATOR> 
ATQR> 



GNATGR> 

IGNATOR> 

TOR> 



TQR> 
> 

TOR> 

0R> 

> 



0R> 
TOR> 
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<ACCESS FILE INFORMATION 
CESIGNATOR> : := 

<FILE DESIGNATOR> :: = 



<RETURN TYPE) 
<CE5TINATI0N> 



ACCESS FILE INFORMATION C<FILE DESIGNATOR)* 
<RETURN TYPf>* DESTINATION) 
<FILE IDENTIFIER) 
» <SHITCH FILE IOENTIFIER> ( <£XPRESS ION> ) 

8IT / CHARACTER 

<AODRESS GENERATGR> 



The <ACC£SS FILE INFQRHATION DESIGNATOR) returns the end-of-fite 
pointer and the device type from the FIB of the specified file to 
the specified destination. 

The information may be returned as either bit or character. The 
format is as follows: 



01 DESTINATION^FIELD, 

02 EOF POINTER BITC24)*- % 

02 DEVICE TYPE BITC6); X 



CHARACTERC8) 
CHARACTERC2) 



To insure that the FIB exists* this cosmuni cate should only be 
used on open files. 



CHANGE STACK SIZES 



<CHANGE STACK 
SIZES DESIGNATOR) : 



<VS5IZE> ::= 
<NSSIZE> ti- 
<CSSIZE> ::= 

<£SSIZ£> ::= 
<PPSSIZE> ::= 
<DYNAPIC SIZE> ::= 



CHANGE STACK SIZES C<VSSIZE>, 
<NSSIZE>» <CSSIZE>>. <£SSIZE), 
<PPS5IZE), «DYNAMIC SIZE)) 

<NU?48ER> 

<NUNBER> 

<NUN8£ft> 

<NUMBER> 
<NUMBER> 
<NUM8ER> 



BURROUGHS CORPORATION 
COMPUTER SYSTEMS GROUP 
SANTA BARBARA PLANT 



10-38 

COMPANY CONFIDENTIAL 

B18C0/81f00 SDL (BNF Version) (F) 

P.S. 2212 5405 



This statement is restricted to Lexic Level Zero of programs with 
no global data. Also* due to technical incompatibilities* it may 
not be used in a program that invokes profiling* timing* or 
monitoring facilities. Note that the parameters are in an order 
corresponding to the order of the stacks in memory. 

The result of the execution of the statement is to change the 
program^s stack sizes to the values given. 



CHAHACI£R_FILL 



CHARACTER FILL 
DESIGNATOR> : := 



<0F DESTINATION) :: 
<0F 5CURCE> : := 



CHARACTER FILL (<0F DESTINATIONS 
<0F S0URCE>) 

<AD0RESS GENERATCR> 

<EXPRESSION> 



The high-order 8 bits of the <CF S0URCE> will be spread 
throughout the <CF DESTINATION). 



£OMMUNJJ,:.ATE 



<C0HMUNICAT£ CES IGN AT0R> : := COHHUNICATE C <EXP«ESSI 0M> ) 



The <EXPRE5 51 GN> is expected to be a valid communicate message 
This is intended only for experimental testing of communicates. 



C0MP!LE_CARD_INF0 



<C0MPIL£-CAR0- 

INFO DESIGNATOR: : = 



<CCI DESTINATION FIELD> 



COMPILE_CARD_INFO 

(<CCI DisTINATION FIELD>) 

<AD0RESS GENERATOR) 
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This function is intended for use by the compilers only- The 
information on the compile card is returned in the following 
format: 



OBJECT NAME 
EXECUTE TYPE 



(DECIMAL) 



COMP 
COMP 
CQMP 
COMP 
CO HP 
COMP 
COMP 
COMP 
FILL 
COMP 
FILL 
COMP 
COMP 
COMP 
CQMP 
COMP 



01 
02 
03 

04 

05 

06 

07 
ILER 
ILER 
ILER 
ILER 
ILER 
ILER 
ILER 
ILER 
ER 

ILAT 
ER 

ILER 
ILER 
ILER 
ILER 
ILER 



EXECUTE 
COMPILE 
COMPILE 
COMPILE 
COMPILE 
GO P«RT 
GO P«RT 



AND GO 
FOR SYNTAX 
TO LIBRARY 
AND SAVE 
OF COMPILE 
OF COMPILE 
PACK IDENTIFIER 
INTERPRETER NAME 
INTRINSIC NAME 
PRIORITY (OECIHAL) 
SESSION NUMBER 
JOB NUM8ER (DECIMAL) 
1ST AND 2ND NAMES OF 
CHARGE NUMBER 



AND 
AND 



GO 
SAVE 



RUNNING PROGRAM 



ION DATE AND TIME COMPILED 

USERCQDE 

PASSWORD 

PARENT JOB NUMBER 

PARENT QUEUE IDENTIFIER 

LOG SPO 



CHARACTER 
CHARACTER 



CHARACTER 

CHARACTER 

CHARACTER 

CHARACTER 

CHARACTER 

CHARACTER 

CHARACTER 

CHARACTER 

CHARACTER 

BIT (36) 

81 K 4) 

CHARACTER 

CHARACTER 

CHARACTER 

CHARACTER 

CHARACTER 



(30) 
(2) 



< 10) 

( 30 ) 

( 10) 

(2) 

(6) 

(6) 

(20) 

(7) 

(1) 



( 10) 
(10) 
(04) 
(20) 
(1) 



££_INIimE_IQ 



<CC_INITIAT£_IO 
CESIGNATOR> : : = 



<PORT> :: = 

<CHANN£L> : := 

<I0 DESC ADDf?ESS> : 



DC_INITITATE_I0 (<P0RT>r <CHANNEL>* 
<I0 DESC ADDRESS> 

<EXPRESSION> 
<EXPRESSI0N> 
<EXPRESSION> 



See MCP documentation for DC_IN ITIATE_IO ( connrun ic at e verb 40). 
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<CEBLANK DESIGNATORS : 
<FIRST CKARACTER>::= 



OEBLANK (CFIRST CHARACTERS 
<IOENTIFIER> 



The <FIRST CHARACTER> is a simple identifier which describes the 
first character to be examined. Oeblank repeatedly increments 
the address field of the descriptor for <FIRST CHARACT£R> until 
<FIRST CHARACTER> describes a non-blank character. 



DISABLE INTERRUPTS 



<CISA9LE_INTERRUPTS 
0E5IGNATQR> : := 



DISABLE INTERRUPTS 



For MCP use only 



The ^DISABLE INTERRUPTS 0ESIGNAT0R> suppresses all interrupts 
until an <ENAELE INTERRUPTS OESIGNATQR> is encountered. 



Note that this construct cannot be executed by normal state 

programs. 



DUMP 



<0UHP DESIGMATQR> : := 



DUMP 



The MCP will create a dunipf i I e* and program execution will 
cont inue after the dump. 
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<DUMP-F0R- 

ANALYSIS DESIGNATORS : = 



DUMP FOR ANALYSIS 



Execution of this function will cause a dumpfile to be created 
and execution to continue. 



ENABLE INTERRUPTS 



<£NA8LE_INTERRUPT5 
DESIGNATOR : : = 



ENABLE INTERRUPTS 



For MCP use only 



The <£NA3L£ INTERRUPTS DESIGN*TOR> causes the MCP to return to 
the normal i nterrupt-pr oces si ng mode after the <DISA3LE 

INTERRUPTS 0ESIGNAT0R> has changed that mode. See above. 



Note that this construct cannot be executed by a normal state 
program. 



£RS2«_Cti£MUNICATE 



<ERR0R COMMUNICATE 
DESIGNATOR* ; := 



:rror_cgmmunicate t<EXPRESSIQN>) 



The value of the expression should be in the following form: 
2 8IT5 6 8ITS 16 BITS Zk BITS 

: : N : : : 



where N is the error numoer. 
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The value of the expression will be put on the Evaluation Stack 
as a descriptor* and an MCP comiunicate will be performed. 



If N = 29 then the MCP will use the 16-bit field as a bit length 
and the 24-bit field as a base relative bit address of the error 
message to be printed on the SPO. Otherwise* N is the 
MCP-defined error message number. 



EXECUTE 



See <EXECUTE OPERATOR DESIGNATOR> in Section 8 



FETCH 



<FETCH DESIGMTOR> 



<FETCH SPECIFIER>::= 

<I/0 REFERENCE 
ADDRESS> ::= 



<FETCH SPECIFIER> C<I/0 REFERENCE 
AQ0RESS>* <PCRT* CHANNEL ADDRESS>* 
<RESULT DESCRIPTOR ADDRESS>) 

FETCH I FETCH AND SAVE 



<£XPR£SSI0N> 



<P0RT, CHANNEL 
ACDRESS> ::= 

<A0QRESS GENERATOR> 



<ADDRESS GENERATOR 
See ADORESS GENERATORS 



<RESULT DESCRIPTOR 
A0DRESS> ::= 



<ADDRESS GENERATGR> 



The 
If t 
be 

non- 
r ef e 
r epo 
inte 
of < 
AODR 
DESC 
f iel 
rele 



<FETCH 
here is a 
reported. 



z er o * 
r ence 
rt ed • 

rrupt 
PORT* 
ESS 



th 

add 

T 

ar 

CHA 

i s 



RIPTOR AO 
d s will 
ase. 



DESIGN 

high 

Ot 

en onl 

ress t 

he POR 

e sto 

NNEL A 

stored 

CRESS> 

be ze 



ATOft 
pr i o 
her w 
y an 
he s 
T ( 
red 
DDRE 
i n 
. I 
ro. 



> fetches the result of an I/O operation, 
rity interrupt* then that interrupt will 
ise* if the <I/0 REFERENCE ADDRESS> is 

interrupt on an I/O descriptor with the 
ame as the <I/0 REFERENCE ADDRESS> will be 
3 BITS) and CHANNEL (4 BITS) of the 
from left to right in the low-order 7 bits 
SS>. The I/O RESULT DESCRIPTOR REFERENCE 

the low-order 24 bits of the <RESULT 
f there were ro interrupts* then these two 

FETCH AND_SAV£ is obsolete as of the 5 1 
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FIN9__0UPLICAT£_CHARACTERS 

(<FDC TEXT> p <DUPLICATE COUNT>» 

<OUPLICATE CHARACTER> * <NON-DUPL IC A TE 

TEXT>) 

<SINPLE IOENTIFIER> 

<AOQR£SS GENERATOR> 
<AODR£SS GENERATOR> 
<SIHPLE IDENTIFIER) 



The text to be scanned for contiguous duplicate characters is 
described initially by <FOC TEXT>. The text will be scanned 
until three or more contiguous duplicates are found. Upon 
return* <F0C TEXT>*s descriptor will be reduced to describe the 
text beyond the duplicate? <NON-DUPLIC ATE TEXT>«s descriptor 
will be modified to describe the nor-dup I i cat e text that was 
scanned; <0UPLICATE CQUNT> will contain the nuiber of duplicate 
characters; and <DUPLICATE CHARACTER> will describe the 
duplicate character. 



FREEZE PROGRAM 



<FRE£ZE-PROGRAH 
0£SIGNAT0R>::= 



FREEZE PROGRAM 



Execution of this function will prevent the program 
moved in mercery or from being rolled out of memory. 



f rom be ing 



GROW 



<GRQW DESIGNATOR?-::- 



GROW (<PAGE0 ARRAY 
<EXPRESSI0N>) 



IDENTIFIERS 



This statement dynamically increases the array bound of the 
specified paged array by the value of the expression. The 
expression may not be negative (the bound «ay not be decreased) 
and the resulting array bound must not be larger than 16277215. 
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<HALT DESIGNATOR : : = 



HALT (<EXPRE5SI0N>) 



The <HALT QESIGNATQR> causes the value of the <EXPRE5SI QH> to be 
moved to the M-Machine T-Register. If the value is longer than 

Zk bits* only the low-order 24 bits are moved. If the value is 
less than 2A bits* the value is r i gh t- \ us t i f i ed and leading 
zeroes are added. 



After the value is moved* an M-Machine halt is executed 



EXAMPLES: 



DECLARE X SITC24); 

HALT (X: I HEX_SEQU£NCE_NUM8ER ); 

HALT (SU8BIT <H£X_S£QUENC£_NUM8ER, » 24)); 



MRQWARE_M0NIT0R 



<HARDWARE MONITOR 
OESIGNATOR> : := 



HARDWARE_MQNITOR C <EXPRES SION> ) 



The monitor micro-opcode will be executed using the low-order a 
bits of the <£XPRESSION> as its operand. 



iNIIIiLIZI.VECIOR 



<INI riALIZE_VECTGR 
CESIGNATOR> : := 

<TA8LE ADDRESS> : : = 



INITI4LIZE_VECT0R (<TABLE ADDRESS>) 
<ADDRESS GENERATOR 



For use by SORT only. 
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The <TABLE ADOR£SS> points to the table containing the vector 
address* the vector level-1 address* the key table address* and 
the vector limit address. 



£LSSAGE_COUNI 



<M£SSAGE_COUNT 
DESIGNATOR> : := 



MESSAGE COUNT (FILE DESIGNATORS 
<ADORE5S GENErtATOR> 



<FILE 0ESIGNAT0R> 



<FILE IDENTIFIER> 
I <SWITCH FILE I0> ( <£XPRES SI0N> ) 



The <FILE SPECIFIER> is assumed to be a queue file and the number 
of messages in the queue will be returned as a fixed number into 
<AODRESS GENERATOR*". If <F ILE SP£CIFIER> is a queue file family* 
an array of values? one for each fa oily member > will be returned 
into <AOORESS GENERATOR^ 



MONITOR 



See Appendix VIII: SOL MONITORING FACILITY 



OVERLAY 



<CVERLAY DESIGNATOH> ::= 



OVERLAY (<EXPRESSION>) 



The <EXPP£SSION> will be used as an index into the interpreter 
dictionary by the interpreter swapper. The interpreter 
dictionary entry will specify the action to be taken. See the 
81700 MCP Reference Manual. 
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DEAD CA5SETTE 
DESIGNATOR>::= 



DESTINATION SPECIFI£R> 
<HASH_TOTAL SPECIFIERS 

<R£SULT SPECIFIERS : = 



READ_CASSETT£ ( <DESTI NATION SPECIFIER,. 
<HASH_TQTAL SPECIFIERS <RESULT SPECIFIERS) 

<ADDRES5 GENERATOR 

HASH_TOTAL 
I NO_HASH_TOTAL 

<AODRESS GENERATOR> 



The <REAO CASSETTE DESIGNATOR> causes the number of bits 
specified by the DESTINATION SPECIFIER> to be read fro* the 
console cassette to the address specified by that DESTINATION 
5P£CIFI£R>. This number of bits lust be equal to the record size 
minus the hash- total size (if it is present) of 16 bits. The 

<HASH_TOTAL SPECIFIER> indicates whether or not a hash-total is 
expected at the end of the record* 



A value of or 1 will be left in the <RESULT SPECIFIER> 
indicating that the HASH-TOTAL was incorrect or correct* 
r esp ect i vel y . 



E£A£_FP£, WRJIE_FP3 



<ACCES5-FP8 

DESIGNATOR> : := 



<ACCESS-FPB ICENTIFIER> 
<FILE SPECIFIED :: = 

<FILE 0£SIGNAT0R> : i= 

<FILE NUMB£R> : : = 

<SQURCE OR DESTINATION 
FIELD> :: = 

<«0DRESS GENERATOR> ::= 



<ACCESS-FP8 IDENTIFIER> 

(<FILE SPECIFIERS 

<S0URCE OR DESTINATION FIEL0>) 

R£A0_FP8 I WRITE_FP3 

<FILE DESIGNATOR> 
I <FIL£ NUM8EH> 

<FIL£ IDENTIFIER> 
i cSWITCH FILE IOENTIFIER> C (EXPRESS I0N> > 

<EXPRESSION> 

<A00RESS GENERATOR> 
See ADDRESS GENERATORS 
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The File Parameter Block of the file indicated by the <FILE 
SPECIFIED is read into* or written from the <S0URCE OR 
DESTINATION FIELD>. 



Note that the <S0URCE OR DESTINATION FIELD> should be 1440 bits 
in I ength • 



£LAO_0VERLAr* WRITE_0V_ERLAY 



<ACCESS OVERLAY 
DESIGNATOR> : := 



<ACCESS OVERLAY IOENTIF IERX <EXPRE SS I0N> ) 



<ACC£SS OVERLAY 
I CENT IF I£R> : : = 



READ_OVERLAY / WR I TE__0 VERL AY 



The value of the <£XPRESSION> is assumed to be a 76 -bit field 
with the following format from high-order to low-order: 



BITS 



CONTENTS 



0-3 
4-27 
28-51 
52-75 



EU = (Not used) 

3ase relative beginning address 

Base relative ending address 

Disk address (Relative to user area) 



The area described by the beginning and ending addresses is reao 
to* or written from the user disk at the (relative) DISK ADDRESS 
g i ven. 



REFER ADDRESS 



<R£FER ADDRESS 
UESIGNATOR> :: = 



REFER ADDRESS (<REF VAR>> <£XPRESS I0N> ) 



The value of <EXPRESSIUN> is stored in the address part cf <REF 
VAR> . 
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REFER_LENGTH (<REF VAR>, <EXPRES SI N> ) 



The value of <EXPhESSION> is stored in the length part of <REF 
V Aft> . 



<R£FER_TrPE_ 
OESIGNATUR>7:= 



REFER TYPE C<R£F V AH > * <£ XPRE5SI O.N> ) 



The value of <£XPR£SSI0N> is stored in the type part of <REF 
VAR> . 



BilNSIilE 

REINSTATE DESIGNATOR ::= REINSTATE (<REINSTAT£D PR0GR4M>) 

REINSTATED PR0GRAH> : : = <ADDRESS GEfcERAT0R> 

The REINSTATED PR0GRAM> is assumed to describe the field 

RS_C0^HUNICATE_M5G_PTR of RS.jMUCLEUS of the program to be 
reinstated CSee description of the RUN STRUCTURE in 81700 HCP 
Reference Manual). 



The reinstating prograa's M-Machine state is stored in the 
appropriate parts of its RS_NUCLEUS- The address of the 

reinstating program's RS_NUCLEUS is stored in the reinstated 
program's RS_C0MHUNICATE_LR. 



The program whose R S_C0 HHUNIC A TE MSG PTR is described by 
REINSTATED PR0GRAM> is then reinstated. 
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<RESTGRE DESIGNATOR : : = 

<ADDRESS GENERATOR 
LIST> : := 



RESTORE <<40DRESS GENERATOR LIST>) 



See ADDRESS GENERATORS 



The <REST0RE DESIGNATOR> assigns the current value on the top of 
the Evaluation Stack to each ^ADDRESS GENERATORS frorc right to 
left* in the list. This operator is used in conjunction with the 
<SAVE DESIGNATORS See above. 



EXAMPLE: 



SAVE CA»B*C>; 



RESTORE C4»8»C); 

NOTE THAT RESTORE CA,B>C) IS THE SAME AS 

RESTORE (C); 
RESTORE CB); 
RESTORE (A)/ 



REVERSE STOKE 



< REV ERSE STORE 
0ESIGNAT0R> : := 

<ADDRESS GENERATOR 
LIST> ::= 



R£VERS£_STORE 

(<4DDRESS GENERATOR LI S T> • <EXPRESS I0N> ) 

See ADDRESS GENERATORS 



The REVERSE_5T0RE OPERATION has the effect of evaluating multiple 
store operations from left to right instead of from right to 
left. See THE REPLACE OPERATORS. 



For examp le : 



REVERSE_ST0RE (L , M, N ,P , X+ 1 ) ; 
has the same effect as: 
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L 


:= m; 


M ' 


i= n; 


N : 


-.= p; 


P ' 


:= xn; 



With the R£VER5E_ST0RE, however* the descriptor for each <ADDR£SS 
GENERATOR> in the list is determined only once. 



Note: 



REVERSE.STORE CL#H *H *P > X* I ); 
is not the same as 
L:=M :=N:=P:=X*t; 



SA^E 



<SAVE DESIGNATOR> 



SAVE (<£XPR£SSI0N LIST>) 



Each of the <EXPRES SICN>s» from left to right* will be evaluated* 
and the value of each left on the Evaluation Stack (and Value 
Stack* if necessary). See <R£ST0RE DESIGNATORS 



SAVE STATE 



<SAV£ STATE DE5IGNAT3R> : := SAVE STATE 



The state of the interpreter will be stored in RS.H. MACHINE (See 
8170C MCP Reference Manual). Execution will then continue. 



SORT 



<S0RT D£SIGN4T0R> 



SORT (<S0RT INFORMATION TABLE SPECIFIERS 
<S0RT KEY TA3LE SPECIFIERS 
<INPUT FILE DESIGNATORS 

<0UTPUT FILE OESIGNAT0R> <TRANSLATE 
FILE DESIGNATORS 



<S0RT INFORMATION TABLE 
SPECIFIER> :: = 



<A0DRESS GENERATOR> 
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<SQRT KEY TABLE 
SPECIFIER> :: = 

<INPUT FILE DESIGNATOR 



<AOORESS GENERATOR> 
<FILE DESIGNATOR> 



<TRANSLATE FILE 
CESIGNATOR> : : = 



<EMPTV> I . <FILE DESIGNATOR> 



<OUTPUT FILE 
DESIGNATOR> : := 



<FILE DESIGN«TQR> 



<FILE DESIGNAT0R>::= 



<FILE IOENTIFIER> 
I <SWITCH FILE ID£NTIFIER> ( <EXPRES5 ION> ) 



The <SGRT D£SIGNATOR> is a communicate which requests the 
transfer of records froi the input file to the output file 
according to the SORT key table- The SORT information table 
includes codes for SORT type/* hardware available* and other 
opti ons. 

For formatting specifications of the SORT information table* 
refer to SORT documentation* 



SORT MERGE 



<S0RT MERGE DESIGNATOR> 



= SORT MERGE 

(<SORT INFORMATION TABLE SPECIFIERS 
<S0RT KEY TABLE SPECIFIERS 
<INPUT TA8LE SPECIFIERS 
<0UTPUT FILE DESIGNATOR> 
<TRANSLAT£ FILE DESIGNATORS 



<INPUT TABLE SPECIFIER> 



<ADORESS GENERATOR 



See SORT STATEMENT for other parameters* and SORT documentation 
for table formats and semantics- 
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<SQRT_SWAP DESIGNATOR> 
<RECORO l> :: = 
<RECQRD 2> :: = 



SQRT_5WAP (<RECORD 1>,<RECCRD 2> ) 
<AODRESS GENERATOR 
<ADORESS GENERATOR> 



White the <SORT SWAP DESIGNATOR> is intended to be used by the 
SORT p its application is such that it may be generally useful. 

This cesignator allows the user to swap or exchange two records 
in memory without allocating a third area for storing one of the 
recor ds. 



Specifically* the record pointed to by <R£C0RD 1> is exchanged 
with the record pointed to by ^RECORD 2>. 



Note: The interpreter being used must contain the S0RT_SWAP 
oper ator . 



THAW PROGRAM 



<T HAW -PROGRAM 
CESIGNATOR>::: 



THAW PROGRAM 



Execution of this function will allow the program to be rolled 
out of memory. It will not force it to oe rolled out. 



THREAD VECTOR 



<THREAO_VECTQR 
CESIGNATOR> : z~ 

cTABLE ADDLES S> 

<IftDEX> ::- 



THR£AO_V£CTOR C<TA8L£ ADDRESS> , < I N0EX> ) 

<ADORESS GENERAT0S> 

<£XPRE5SI0M> 
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For use by sort only 



The <TABL£ A00RESS> points to the table containing the 
information described under IftI TUL IZE_VECTOR. The <IN0EX> 

provides the offset from the beginning of the vector to the next 

record to be used for comparison. 



TRACE 



<TRACE DESIGNATOR> :;= 



TRACE 



NOTRACE I TRACE ( <EXPRES SI QN>) 



The TRACE witt cause the SOL instructions of the normal state 
program to be traced on the line printer* NOTRACE will turn off 
the trace* The trace will only be effective when the program is 
run with an SOL trace interpreter. 



TRACE 1<EXPRESSIGN> ) provides greater control of the tracing to 
be done. The low-order 10 bits are used in the following way 
(numbering of the 10 is froi left to right): 



Bit Use 

Trace all commands except those which modify data or 
change the program pointer stack. Normal state only. 

1 Trace commands which modify data items Ce.g.* CLR* 
SNDL* etc.). Normal state only. 

2 Trace commands which change the program pointer stack 
(e.g.* IFTH* CASE* EXIT* etc*)- Normal state only. 

3 Not used. 

4-6 Same as 0-2* but for MCP. Several MCP routines 
(GET5PACE* FQRGETSPACE* and others) will not be 
t raced. 

7-9 Same as 0-2* but will trace those MCP routines not 
traced by 4-6. 



Note that TRACE(33aC3) is the same as TRACE* while TRACE(O) is 
the same as NOTRACE. 
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TRANSLATE DESIGNATOR 



<TRANSLATE SOURCE> ::= 

TRANSLATE SOURCE ITEM 
SIZE> :: = 

TRANSLATE TAELE> : : = 

TRANSLATE TA8LE ITEM 
SIZE> :: = 

<TRANSLATE RESULT> ::= 



TRANSLATE C«TRANSLATE 

TRANSLATE 1A8L£> , <TPANSL4TE TA3LE 
ITErt SIZE> * <T3ANSLATE RESULT>) 

<ADDRESS GENERATOR> 



<EXPRE5SI0N> 
<EXPRESSIUN> 

<EXPRESSI'JN> 
<AOORESS GENERATOR 



<TRANSLATE SOURCE> is assumed to consist of items of size 
<TRANSLATE SOURCE ITEM SIZE>. Each of the items in TRANSLATE 

TABLE> and <TRANSLATE RESULT> are assumed to be of size 

<TRANSLATE TABLE ITEM SIZE>. Each of the source i teres is used to 
subscript into the table to obtain an item which is placed into 
the result field in the position corresponding to the position of 
the original item obtained f r cm source. This process continues 
until the source is exhausted* the result is full* or an error 
occurs* 



If either source or result is not a multiple of its respective 
item size* then the translation of the last item is undefined. 



Both source and table item sizes must be less than or equal to 

24. The table must be large enough to accomodate all items in 

source. If either of these is violated* a run-time error will 

occu r . 
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APPENDIX J: RESERVED AND SPECIAL WORDS 



The following is a list of reserved words in SOL* complete as of 
May* 1978, These words may only be used as reserved words* 



ACCEPT AND AS 

BASE BIT SUMP BY 

CASE CAT CHANGE CHARACTER CLEAR CLOSE 

DECLARE DECREMENT DEFINE DISPLAr 00 DUHMY DYNAMIC 

ELSE END EfiL ENTER_C0R0U TINE EX n_COROUTI NE EXQR 

FILE FILLER FINI FIXED FORMAL F0RMAL_VALUE FORWARD FROM 

GEd GTR 

IF INTRINSIC 

LEQ LOCK LSS 

MOD 

NEQ NOT 

OF ON OR OPEN 

PAGED PHOCEDURE 
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READ R£AD_F ILE_HEADER RECORD REDUCE REFER REFERENCE REMAPS 

RETURN RE Td3N_ ANO_Efl A BLE_ INTERRUPTS 

SEARCH_DIR£CTORf SEEK SEGMENT SEGM£NT_PAG£ SKIP SPACE STOP 

SU89IT SUBSTfi SWITCH_FILE 
THEN TO 
UNDO USE 
VARY ING 

WRITE WRITE_FILE_HEAqER 
ZIP 
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The following is a list of special words in SDL» complete as of 

December* 1976. Each special word has a particular meaning* 

however it may be used as an identifier. In that case* it loses 
its special significance in SDL. 



ACCESS.FILE. INFORMATION 

8ASE.REGI5TER 8INAKV 

CHANGE.STACK.SIZES C H AR ACTER.F ILL CHAR. TABLE COMMUNICATE 

C0MPILE.C4RD.INF0 COMMUNI C ATE.WI TH.GI SriQ CONTRCL.STACK.OI T S 
CGNT3ai._STACK.T0P CON S0LE_S WI TCHES CONV CONVERT 

OATA.ADOaESS DATE DC. INI TI A TE. 10 DEBLANK DECIMAL 

DELIMITEQ.TOKEN DESCRIPTOR DI S ABLE. IN TERRU PTS DISPATCH 

DISPLAY. 3ASE OMS.CALL CUMP DU^P.FGft. AN AL Y SI S DY N AHlC.MEtfOR Y.8 ASE 

ENABLE. INTERRUPTS ERROR. CO MMUN IC ATE EV ALU A T ION. ST ACK.TOP 

EXECUTE 

FETCH FETCH. COMMUNICATE.MSG.PTR FETCH. AND. SAVE 

F INO.DUPLICATE. CHARACTERS FREEZE. PROGR AM 

GROW 

HALT HARDWARE. MONITOR HASH.COOE HASH.UNPACK 

I NIT IALIZE.VECTQR IN TERR OG ATE. INTERRUPT. ST A TUS 

LENGTH LIMIT. REGISTER LOCATION 

MAKE. DESCRIPTOR M AKE.RE AD.O NLY M AKE.RE AD.hR I TE MESSAGE.COUNT 

M.MEM.SIZE MONITOR. SET M ON I TOR_RESE T MONI TQR.CHA NGE MONITOR. SET 

NAME.OF.DAY N AME.ST ACK.TOP NDL.OP NEXT.ITEM NEXT.TOKEN NOTRACE 

NULL 
OVERLAY 

PARITY. AD Da ESS PRE V 10 US. I TE H PRO Gfi AM.Sfe I TCHE S 

READ.CASSETTE READ.FP8 R£«D. OVERLAY REINSTATE RESTORE 

REVERSE STORE 
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SAVE SAVE_STATE SEARCH.L INKED_LI ST SE ARCH_SERI AL_L I ST S_HEM_SIZ£ 

SEARCH S0L_5TACKS SORT SORT DELETE SORT FILE FIXUP SORT MERGE 
SORT RETURN SORT SEARCH SO R T_STEP_DO V»N SORT_SWAP 50RT_UNBLQCK 
SWAP SP0_INP'JT_PR£SENT 

THAW.PROGRAM T HREAQ_ VECTOR TIME TRACE TRANSLATE 

VALUE_DESCRIPTOR 

WAIT WRITE.FPB WR I T£_OV£RL A/ 

x aod x sue x nul x div x moo 
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Every SDL control card must have a S in 
73-80 may be used as a sequence field, 
has been turned on (off)* it will 

explicitly turned off Con). 



column one- Colurans 

Note that once an option 
regain on (off) until 



<C0NTR0L CARD> ::= 

<CQNTRGL STATEMENT> : 

<C0NTR0L OPTION LIST> 

<C0NTRUL 0PTI0N> ::= 



<C0NTP0L OPTION W0RD> 



< DEBUG 0PTI0N> :: = 
<NUM8ER> ::= 
<SEQUENCE 0PTI0M> :: = 

<5EQUENCE PARAMETERS> 



$ <C0NTR0L STATEMENT> 

<C0NTR0L OPTION LIST> 
I <V0ID 0PTI0N> 



<C0NTR0L 

I <C0NTR0L 

<CONTR0L 



0P1I0N> 
0P1I0N> 
OPTION LIST> 



<C0NTR0L OPTION WJRD> 
NO <CONTROL OPTION W0R0> 
<0EBUG 0PTI0N> 
<SEQUENCE 0PTI0N> 
<PAGE 0PTI0N> 
<MERGE 0PTI0N> 
<STACK SIZE LIST> 
INTERPRETER 0PTI0N> 
INTRINSIC 0PTIGN> 
DECOMPILE 0PTI0N> 
<LI8RAR)f PACK 0PTI0N> 

LIST 1 LISTALL I SINGLE 

SGL 1 DOUBLE 1 CODE 

CONTROL I NEW I SUPPRESS 

XNAP I CHECK I PROFILE 1 PPROFILE 

DETAIL I AHPERSAND I NO.DUPL ICATES 

NO SOURCE I MONITOR 
)iREF I XREF.ONLf I EXPANO.OEFINES 
SIZE I FGRMAL_CHECK 
TIME PROCEDURES I TIME_8L0CKS 
PASS_£N0 I ERROR.FILE 
FREEZE I NEST PROCEDURE TIMES 
ADVISORY I LOCKI 
USEQOTS I CONVERTDOTS 
TIME.MCP I UNOE«SCQRES_IN_FILE_NAMES 

DEBUG <NUMBER> 

<UNSIGNED INTEGER, 3 OR LESS DIGITS> 

NO SEQ 
I SEQ <SEQUENCE PARAM£TERS> 

<OASE> 
1 <INCREMENT> 
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<BASE> ::= 

< INCREMENT :: = 
<PAGE OPTION> ::= 
<MERGE OPTIO,N> :: = 
<STACK SIZE LIST> 



<STACK SIZE 
DESIGNATGR> : := 

<STACK CESIGMTOR> :: = 



<STACK SIZE> ::= 

<VOIO OPTION> ::= 

<TERHINATING SEQUENCE 
FIELD> :: = 

INTERPRETER OPTION> 
<INTERPRETER NAME> if- 
<INTRINSIC OPTION> :: 



<INTRINSIC FAMILY 
N A ME > : : = 



<FILE FAMILY NAME> if 

<PACK_IO> ::= 
<MFID> ::= 

<LI8RARY PACK OPTIQN> 
<RECQMPILE 0PTI0N>::= 
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I <8ASE> <INCREMENT> 

<NUHB£R> 

♦ <NUM6ER> 

PAGE 

MERGE 

<STACK SIZE OESIGNATOR> 
I <STACK SIZE -OESIGiNATOR> 
<STACK SIZE LIST> 

<STACK DESIGNATOR> <STACK SIZE> 

VSSIZE I NSSIZE I ESSIZE 
1 CSSIZE I PPSSIZE I DYNAHICSIZE 

<NUMBER> 

VOID ^TERMINATING SEQUENCE FI£LO> 

<EMPTY> 
i <EXACTLY 8 CHARACTERS> 

INTERPRETER INTERPRETER NAME> 

<EXTERNAL FILE NAME> 

INTRINSIC 

<INTRINSIC FAMILY NAM£> 

<IDENTIFIER> I <CHARACT£R STRING> 
I <FILE FAMILY N*ME> 

MULTIFILE ID> 
I <PACK_ID/MULTIFILE ID> 

<CHAR STRING> 

<CHAR STRING> 

LI8RARY_PACK <PACK_IO> 

CREATE MASTER 
I RECOMPILE 
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AC vis any 

AMPERSAND 
CHECK 



Note: Default is OFF except where specified as ON. 

messages on the listing 



CODE 

CONTROL 

CONVERTOQTS 



CREATE MASTER 



Prints advisory 
Default is ON, 



Prints those ampersand cards which are examined. 
Default is ON. 

The merged source will be checked for sequence 
errors. Oefault is ON. Sequence checking is 
done after any resequencing due to a $S£Q is 
co nip let e» 

Prints generated code. 
Prints control cards. 

Converts dots "•" to underscores w _ w when used 
as separators in identifiers. The conversion 
will be reflected in all compiler output 
including the listing and NEHSOURCE files. 

RECORD constructs f.a y not be used with dot 
separators in identifiers. 

See Append i x V 1 1_ 



CS5IZE 

DEBUG 

DETAIL 

DOUBLE 

OYNAHICSIZE 

ERRQK_F ILE 

ES5IZE 

£XPAND_DEFINES 

FREEZE 



Control Stack size. 

Compiler debug use only* 

Prints expansion of define invocations. 

Oouble spaces listing when printing. 

Amount of aeiory used for paged array pages. 

A separate error file will be produced 
containing only errors and warnings and the 
source images to which they apply. 

Evaluation Stack size. 

Causes define expansions to be cross-referenced 
(used in conjunction with X;<EF or XREF_ONLY). 

The FREEZE bit will be set in the programs FBP> 
preventing the program from being rolled out 
dur i ng e xecu t i on. 



BURROUGHS CORPORATION 
COMPUTER SYSTEMS GROUP 
SANTA BARBARA PLANT 



12-4 

COMPANf CONFIDENTIAL 

B1800/B1700 SDL (BNF Version) CD 

P.S. 2212 5405 



FORMAL. CHECK 



INTERPRETED 
INTRINSIC 

LI3RARY_PACX 

LIST 

LIST ALL 



Procedure actual parameters and values returned 
from typed procedures will be checked 
respectively against their corresponding formal 
parameters and procedure formal types. 

Changes the interpreter name. 

Changes the family names of intrinsics to be 
used. 



Assumes all library files are 
speci f i ed. 



on 



the pack 



Lists the source input which was compiled. NO 
LIST will also turn off LISTALL. Default is ON. 

Lists all SDL source input (whether or not 
conditionally excluded)*, LISTALL turns on list* 
but NO LISTALL will not turn off list. 



LOCK! 



MERGE 



MONITCR 



Intermediate work files will be locked into the 
disk directory as they are created. (See 
Appendix IV: RUNNING THE COMPILER). 

The primary source file is on tape or disk which 
will have the cards* from the card reader* 
merged with it. 

See Appendix VIII: SOL HONITOR FACILITY 



NEST PR0CE- 
DU, ; tE_TIMES 

NEW 

NO 

NO DUPLICATES 



NO SOURCE 



See Appendix III. 

Creates a new source file. 

NO preceding an option Cwhich allows it) will 
turn that option off. 

Newly declared identifier will net be checked 

for uniqueness. The programmer must guarantee 

that there are no duplicates before using this 

option. It will reduce compile time for tar qe 

programs only. 

Program source images will not be saved* thereby 
shortening the compiler work file. No source 
listing will be possible when this option is 
specified. This should be used with long 
programs only. 
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NSSIZE 
PAGE 

PASS_END 

PPSSIZE 
RECOMPILE 



Name Stack size. 

Page eject if listing. 

The total elapsed time and the number of errors 
will be printed at the end of each pass. 

Program Pointer Stack size. 

See Appendix VII. 



RECO MPILE_T IHES The start and stop times of each of the phases 

of the "bind* pass of a CRE 4TE_MA STER or 

RECOMPILE will be printed on the listing. 



SEQ 



SINGLE CSGL) 

SUE 
SUPPRESS 

TIME.BL0CKS 
TIrtE_PRGCEDURES 
TIME KCP 



Resequences new source file usirg base and 
increment specified. Default increment is 1000* 
default base is the sequence nuaber of the SSEG 
card. If the $SEQ card has no seq number the 

default base is 10QG. 

Single spaces listing when printing. Default is 
ON. 

Prints segient sizes by raise at end of compile. 

Suppresses warning messages. To suppress 

sequence error messages* turn off CHECK. 



See Appendix III. 



UNDERSCORES IN FILE NAMES 



USEOGTS 



VOID 



Provides capability to convert internal file 
names with dots (.) as separators. This option 
should be used with the C0NVERTD0TS option. 

Allows the use of dots* **. w * as separators in 
identifiers. Otherwise* underscores* "_" will 
be required (See CONVERTQOTS) . 

The VOID option will void records in the primary 
file which have sequence fields less than or 
equal to the TERMINATING SEQUENCE fI£LD>. If 

the field is omitted* only the record with the 
seauence nuiber corresponding to the VOID card 
sequence number will be deleted. The VOID 

option will not delete images in a secondary 
(car d ) source file- 
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VSSIZE Value Stack size. 

W0RKING_5ET__8YTES 

Specifies the working set size of the object 
program as used by MCPI. This option has no 
effect on programs to be run under MCPII. 

XMAP Creates an extended cede map file for post 

compilation analysis. The name of the file 
passed to SOL/XMAP is n XM APMHD DYY/ <T IM£>"* where 
HH is the month* DO is the day of the month* YY 
is the year* and <TI«iE> is the time of day of 
the comp i I e. 

XREF Produces a cross-reference listing of the 

program. The name of the file passed to 

SOL/XREF is f, X3EFHMDQYY/<TI^iE> ,, * where MM is the 

month* DD is the day cf the month* YY is the 

year* and <TIM£> is the time of day of the 
cosip i le. 

XREF_CNLY Produces a cross-reference listing and then 

terminates the compilation. The name of the 
file passed to SDL/XREF_0MLY is 

w XR£FMMDDrY/<TIME>"# where MM is the month* DO 
is the day of the month* YY is the year* and 
<TIME> is the time of day of the compile. 

Note: All control cards may use & in column I in place of 
$. Those control cards with I in column 1 will be 

permanently placed in a new source file whenever one 
is made. They may also be conditionally included or 

excluded during compilation. 

c* sWtfReF Fite PFicetffcHe ttef.. 
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The following 

programmer who 



control card options can fee useful to the 
wishes to determine the most time consuming 
partCs) of his program. The purpose of these control options is 
to point out the parts of the program which are the most time 
censuring and/or heavily used* 



PPR0FILE 



Establishes a dynamic array* each element of 
which is a counter for one procedure. The index 
number for each procedure appears in the listing 
following the <PRQC£0UR£ IDENTIFIERS The value 
of the counter will reflect the number of 
entrances to the procedure in question. Those 
with the highest counters should be investigated 
with the PROFILE option. 



PROF ILE 



Establishes a dynamic array* each element of 
which is a counter for one branchirg operation 
C<0Q GR0LP>» <IF STATEMENTS or <C4S£ 
STATEMENTS). The index into the array will 
appear in the listing following the statement in 
question. Those branches with the highest 
counter values are the branches most heavily 

used. 



HMOHicifk 232JSIJQR 



<HAROWARE MONITOR 
0ESI GNAT0R> : := 



HARDWARE MONITOR ( <EXPR£S 5 I0N> ) 



The 81700 is equipped with a hardware monitor which may be 
manually wired to suit the needs of the programmer. The device 
can be useful as a timer or a counter to monitor program 
ef f i c i ency . 



The low-order 3 bits of the <EXPRESSI0N> is used as the low-order 
8 bits of the M- i nstruct i on monitor. For wiring instructions of 
the hardware device see Computer Performance Monitor II: System 
Summary Manual. 
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A high-resolution timer and the means to access it are available 
on select B1720 -ser i es systems- This timer is accessed directly 
by the interpreter* bypassing the HCP and its inherent effects on 
t i mi ng accuracy* 



Timing 
cont rol 



of procedures and/or 



blocks is initiated by the 
options: S T IME_PRCCEDUR£5 and $TI HE_EL0CKS. 
appearance of either of these options turns it on; 
appearance of the option preceded by NO turns it off. .,.„ 
setting of the option at the ti&e of parsing of the procedure 
head or of the block head COO and DO FOREVER* in the case of DO 
groups) determines whether or not the attendant body of code is 
to be timed. 



use o f 
The 
the 
The 



For each item to be timed* a timer cell number is assigned- Upon 
entrance to the body of code* the timer value is subtracted from 
the proper cell and upon exit* the timer value is added to the 
cell. Procedures are not timed around calls of other procedures* 
so that procedure times reflect only the elapsec time spent 
within that procedure. Slock timing works the same way* i.e.* 
times of nested blocks are added to those of enclosing blocks* 
but times of procedures which are called are not included in the 
times of the calling procedure or blocks- The times of called 
procedures WILL be added to those of the caller by specifying the 
option NEST PROCEDURE TIMES. 



At the time of execution* an intrinsic will be invoked which will 
print the timing cells ordered by value. The contents of these 
cells are the number of microseconds spent in the timed bodies of 
code. If the job terminates abnormally* then DUMP/ AN AL? ZER will 
print the contents of the timing cells- 
It is intended that the timing functions will be used in the 
following manner: First* all the procedures ir a program will be 
timed. Upon isolation of the n hot n procedures* block timings 
will be requested for those blocks contained in these procedures. 
If both block and procedure timings are requested for large 
programs* an inordinate amount of memory will be allocated for 
the timing cells* which are A8 bits in length- 



This scheme is usabla by the MCP. The S-option STIKE_MCP must be 
included at compile time. The timing cells are printed with a 
SP0 message. 
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APPENCIX l\t : RUNNING THE COMPILER 



SYSIEf CONTROL CARO.S FOR 31700 



There are two basic deck setup formats. They are 



4. The pri&ary source file is on cards. 

<SYST£M COMPILE CARO> 

* <FILE E3UATE CARD FOR FILE NEWSGURCE> 
OATA CARDS 

* S NEW 

<SDL PROGRAH> 

FINI 

END 



If the primary source file is to fee saved on tape 
disk* these cards must be included. 



or 



The priiary source file is on disk. 

<SYST£M COMPILE CARD> 

<FILE EQUATE CARD FOR FILE S0URCE> 

* <FILE EQUATE CARD FOR FILE NEWS01'RCE> 
DATA CARDS 

S MERGE 

* $ NEW 

<PATCH£S TO SDL PROGRAM 
E^O 



If the merged file is to be saved 
b e i ncl uded. 



these cards must 



Note: Refer to the 91700 MCP Software Operational Guide for 
the exact format of the cotpile and file equate 
cards. 



S£L FJLE NAMES 



CARDS 
SOURCE 

NEWSOURCE 



Card input file (8C or 90 byte records) 

Primary source file if S MERGE is used (80 
or 90 byte records) 

Updated source file if $ NEVi is used (90 
byte record s) 
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XREF.LINE 



XMAP.LINE 



Line printer file 

Separate error file (produced 
SERROR.FILE is used) 



wh en 



Lists file for XREF. 
in the compi t er. 



* I lows f i te equat ion 



Lists file for XHAP. Allows file equation 
in the compiler 



S£L WORKFJLE NAMES 



PFILE 
IFILE 

IMAGE. FILE 



Intermediate file produced by the pre-pass. 

Intermediate file produced by the first 
pass. 

Source image file produced by the pre-pass. 



§£G INPUI 10 COMPILER 



The compiler will notice if the operator gives it SPO input 
during any of the first three passes (SDLP* S0L1» SDL2). SPO 
input will be ignored during SDL3, the partial recompi I at i on 
binder. The operator may give any of the following commands in 
the AX messages 



STATUS 

LIST 
NC LIST 

PASS_£N0 

NO PASS_£N0 
LOCKI 



The compiler will display the current pass 
executing* sequence number being compiled* and 
errors detected so far. 

The compiler will begin listing in whatever 
pass is currently executing. 

Stops listinq in whatever pass is currently 
executing. 

Sets option to display a message as each pass 
completes. 

resets PASS.ENO option. 

The compiler will lock intermediate files as 
they are created and will leek any that have 
already been created but not released. The 



BURROUGHS CORPORATION 
COMPUTER SYSTEMS GROUP 
SANTA BARBARA PLANT 



81800/81700 



14-3 

COHPANr CONFIDENTIAL 

SDL C8NF Version) (F) 

P.S. 2212 5405 



NC LOCKI 



intermediate files rray then be used to restart 
the compiler if necessary (see below) or be 
analyzed with 5DL/IA (not released outside the 
company ) • 



Inter medi ate 
be locked. 



files not already locked wilt not 



5CL RESTART 



If intermediate files have been saved (see LOCKI above) and a 
compile is terminated in SOLI, 5DL2*- or SDL3 due to machine 
failures* it may be restarted in SOLI or S0L2 to avoid repeating 
the entire compile. Program switch zero is normally set to zero 
indicating 3 full compile. It may be set on the coir pile card* 
however* to one (indicating an SDLi restart) or two (indicating 
an S0L2 restart). S0L3 cannot be restarted; instead the 
operator must restart S0L2. 



The compiler will expect the following files when restarted 



SOLI 



S0L2 



PFILE 

IMAGE. FILE 

MASTER/INF (if CrtE ATE_M ASTER compile) 

IFILE 

IMAGE. FILE 

MASTER/INF (if CRE ATE_M A STER compile) 



Files will have been saved under these names if (a) the operator 
entered a LQCKI message or (b ) SL0CKI appeared on a compiler 
control card. 
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4£PENCIX £z C0N0III0f|4L £2££JL*IIQN 



The conditional compilation facility allows the user to 
selectively compile blocks of code without the necessity of 
physically adding or reioving records* 



<C0NDITIQN4L INCLUSION records are always written to a new file 
Cif one is created)* whether or not they are compiled* If 
conditional compilation records are to be printed with the source 
listing* then LIST ALL must appear on the S-card. If not 
specified* only those conditional compilation records which were 
compiled are printed. 



The 3NF for the conditional compilation is as follows 



<CQNDITIGN4L INCLUSI0N> 



<SET ST4TEKENT> s : = 
<5ET SYMBOL LIST> : 

<SET SYMB0L> :: = 
< BOO LEAN SYM80L> :: 

<R£5ET STAT£MENT> : 
<RESET SYMBOL LIST> 

<RESET SYM3QL> ::= 
<PAGE STATEMENT> :: 
<LI3RARY ST/JTEHENT> 
<FILE NAME>::= 



<SET STATEMENT 
I <RESET STATEMENT 
I <PAGE STATEMENT> 
1 <LI3RARY STAT£M£NT> 
I <IF 8L0CK> 

SET <SET SYMBOL LI ST> 

<S£T SYM80L> 
I <SET SYMBOL LIST> 
<S£T SYM8CL> 

<300LEAN SYMB0L> 

<LETTER> 
{ <800LEAN 5Yfl3QL> <LETTER> 
! OOQLEAN SY;M80L> <0IGIT> 

RESET <RES£T SYMBOL LIST> 

<RES£T SYH80L> 
I <R£SET SYH30L LIST> 
<RESET SYM30L> 

<800LEAN SYHe0L> 

PAGE 

LIBRARY <FILE NAM£> 

<MULTI-f IL£ IDENTIFIER> 
1 <M'JLTI-FILE I0£NTIFIER> / 
<FILE IDENTIFIED 

i <pack identified / 

<MULTI-FIL£ IDENTIFIED / 
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<FIL£ IDENTIFIER>::= 
<IF 8L0CK> :: = 



<IF 5TAT£J«ENT> :: = 
<eOOLEAN EXPRESSION> n 

<BOOLEAN FACTOR> ::= 

<HOOLEAN SECONDARY> ::= 
<BOOLEAN PRIMARY> ; := 
{INCLUSION BL0CK> :: = 
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! <P4CK IOENTIFIER> / 

<NULTI-FIL£ IDENTIFIED / 
<FILE IDENTIFIED 

<IDENTIFIER> 

<ID£NTIf IER> 

<IOENTIFIER> 

<IF STATEHENT> 
INCLUSION 6L0CK> 
<EMO 5TATEMENT> 
I <IF STAT£HENT> 

<TRUE PART> 
INCLUSION 8L0CK> 
<ENO STATEMENT 

IF <BQOL£AN EXPR£SS10N> 

<800LEAN FACT0R> 
I <800LEAN EXPRESSION OR 
<800LEAN FACT0R> 

<80QL£4N SECONDARY> 
I <300LEAM FACTOR> AND 

<800LE«N SECONOARY> 

<800LEAN PRIMARY> 
I NOT OOGLEAN PRIMARY> 

<SET SYM30L> 
1 <R£S£T SYHBOL> 

<SDL SOURCE IMAGE 6L0CK> 
I <IF 8LGCK> 



<SOL SOURCE 
INAGE BLQCK> ::= 



<END STATEMENT> : 
<TRUE PART> : := 
<ELSE STATEf£NT> 



<£MPTY> 

I <1 OR MORE SOL SOURCE I#AGES> 

END 

INCLUSION 8LQCK> <ELSE ST*TEMENT> 

ELSE 



All records containing conditional compilation statements must 
have an ampersand C&) in column 1 (except the <SDL SOURCE IMAGE 
BLQCK>). In addition* a complete conditional inclusion statement 
must be contained on one &-CARO. Columns 2-72 are free-field* 
and columns 73-80 may contain sequence numbers- 
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Note that <BOGLEAN EXPRESSIONS may contain the logical operators 
(from lowest precedence to highest): OR* AND* and NOT, 

The <PAGE STATENENT> will cause a page eject if the source file 
is being listed. The <LI3RARy STATEMENT will cause the images 
from the file specified by <FILE NAHE> to be included in the 
source program. 



As an example* consider the following SOL source statements 
illustrating nested conditional compilation stateients and <S0L 
SOURCE I*HGE BL0CK>s. 



COL 1 



FREE-FIELD: COLS 2-72 



5EQ: 73-80 



8 SET A B C 


0100 


I RESET D E 


0200 


DECLARE CA,B) FIXED? 


0300 


8 IF A AMD E 


04C0 


a := e; 


0500 


& ELSE 


060 


A := X CAT Y*Z; 7. WHOLE SOURCE L4AGE IS INCLUDED 


0700 


& IF C 


0800 


8 := A; 


0900 


I END 


1000 


8 END 


1100 


8 IF B OR D 


1200 


bump b; 


130 


8 ELSE 


1400 


8UHP a; 


1500 


& E.HQ 


1600 



The compilation of the following statements would result. 



DECLARE CA,B> FIXED; 

A := X CAT Y*Z; X WHOLE SOURCE IHAGE IS INCLUDED 

B := a; 

BUMP a; 



03C0 
0700 
90 
1300 



Note that every IF must be paired with either an ELSE or an END. 
Every ELSE must have an END associated with it. 
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APPENDIX VI: SOL PROGRAMMING JECHNIQUES 



This section contains coding suggestions and examples which 
result in decreased source code and/or object code. 



DECLARATIONS: 

1. As many non-struc tured declarations as possible Cup to 
a maximum of 32) should be declared in one <declare 
STATEMENTS Example: 

DECLARE A FIXED* C3>C) 9ITC24); 

generates more efficient code than: 

DECLARE A FIXED? 
DECLARE C8>C) BITC24)? 



A <CEFINE ACTUAL PARAM£TER> (See DEFINE INVOCATION) may 
be a series of SDL statements. For example: 

DEFINE COHPAR£(TS»S) AS# 
IF TOKEN SYMSQL=TS 
THEN DO; 

s; 

undo this_one; 
end#; 
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00 THIS__ON£ FOREVER; 

COMPARE {"SINGLE-* SINGLE_SPACE := TRUE); 
COMPARE ("MERGE-*. IF LASTUSEO ♦ G 

THEN UNDO THIS ONE; 

LASTUSED := 2; 

OPEN SOURCE input; 

READ SOURCE CTAPEWORK)); 

compare ( ); 



end this_one; 

procedures: 

1. Procedures from highest efficiency to lowest are 
PARAMETERS LOCAL DATA 



NO 


NO 


NO 


YES 


yes 


KO 


YES 


YES 



STATEMENTS: 



1. When the value returned by a typed procedure is to be 
i gnored : 

IF PCX-Y) then; 

is more efficient than: 

TEMP := PCX-Y); 

2. Use w %- at the beginning of a comment rather than 
"/*.••*/•• as delimiters. The "Z- stops the scanning of 
that record. If the -/*••.*/" for* is used* scanning 
must continue to detect the ending termirator. Thus 
compile time is increased. 

3 • The express i on: 

SU8STR( n 01234 5676 9A8CDEF w *N*l) 
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A. 



generates much less code than 

CASE N OF C0"* w l w * ,, 2' , *... ,, E"* ,, F n ) 

The fact that a boolean expression evaluates to a one 
or zero can often be used to advantage- For example* 
the st at ement : 



X := A>0; 
is more efficient than 

X : = IF A>0 THEN I ELSE 0? 
and the results are the same. 

5. 3UMP A := 3; stores 8 into A and Dumps 9# and BUMP 

A ::= B; stores 8 into * and bumps A, 

6. REVEftSE_ST3RE (IF <CGNDITION> THEN A ELSE 3* C; ) 
selectively stores C into A or B. 

7 . Consider the following: 

In a compiler* for example* assume that all calls on 
the error routine fellow a THEM/ELSE cr are in a <CASE 
STATEMENT. Example: 

1. IF <C0NDITI0N> THEN ERR0RCE005); 

2. CASE Hi 

• / 
» ? 

• r 

ERR0KCE137); 

• r 

END case; 

It is sometimes desirable to put these calls into a 

separate segment* especially when E0 n 5 and E137 

represent character strings (i.e.* in-line ERROR 
HESSAGEs). 

For example: 

DEFINE EPROPCN) AS ^SEGMENT (£RR0R_C ALLS) / 
ERR0R_R0UTI.M£ (N)#; 

Because of the temporary nature of segmenting 
subordinate executable stateients* only the calls will 
be in separate segments. 
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8. When two or more elements of a <CASE STATEMENTS or an 
<IF STAT£MENT> have identical code* more efficient code 
is generated if the code is put into a separate 
procedure (with no parameters or data)* In both cases* 
execution time will be identical* but object code 
savings could be substantial- 



Use conditional compilation statements to remove 
debugging code* rather than physically removing the 
code. See Appendix VII. 
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ifPENCIX VIJ: SOL PARJJAL RECO M£ILiJION FACILITY 



The SDL compiler includes a facility whereby it is possible to 
save information from one compilation which will enable the 
compiler to recompile only one (or more) Lexic Level Zero 
procedures in subsequent runs* thus reducing computer time for 
the r ecompi la t i ons. 



A. SAVING THE MASTER COMPILER INFORMATION 



The master compile information is saved by the compiler in the 
fallowing five files: 



Internal Name 



Default External Name 



NEW SOURCE 

NEW_INF0_FIL£ 

NEW SECONDARY FILE 

nevOldck_address_f ILE 

NEW FP8 FILE 



"NEfe'VSCURCE 

-NEhVINF" 

"NEW" /"SEC" 
"NEW/^BAF" 

"'NEWVFPB" 



Note that the file NEWSQURCE is identical to* and created in the 

same way as* the file created with the SNEW card. Ul five files 

will be created with the compiler $-option (Ncte: Brackets here 
indicate optional specifications)* 

$CR£ATE_MASTE3 C C <P ACK_I D> / KHULT I FIL£_ID> 3 

If specified* <MULTIFILE_I 0> wilt be used instead of the default 
multifile id* w N£W n * for all the files. If also specified* 

<PACK I0> will direct all the files to the named user disk pack 
or cartridge instead of system disk. <PACK_ID> and <KULTTFlL£_ 

ID> must be quoted character literals. 



Note s 



1. The CaEATE_MA5TER option must be on the first card in 
the compile deck (file "CARDS'*)* and that card may 
contain no other dollar options (except R£COMPILE--See 
the following section). 
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3. 



The new source file must be completely sequenced* so 

SSEQ should be used to assure this if necessary. 
This includes all $-CARDS* as they will be included in 
the new source file. 



$NEW option has 
CREATE MASTER. 



no effect 



l n 



con j unc t i on 



with 



8. PARTIAL RECOMPILATION 



By supplying the information saved during a CR£ATE_MA STER 

compile* one may have only those Lexic Level Zero procedures 
recompiled which have actually been patched. The patch deck is 
perfectly ordinary except that no patch cards aaay change Lexic 
Level Zero code* declarations or procedure heads- 



Partial re compilation will be invoked with the $-option (Note 
Brackets here indicate optional specifications): 

SRECOMPILE tt<PACK_ID>/J<MULTIFlLE_ID] 



The compiler will then expect the following six files as input: 
Internal Naire Default External Name 



SOURCE 

MASTER INFU_FILE 

MASTER_SEC0ND4Rf_FILE 

HASTER_3L0CK_ADDRESS_FILE 

MASTER FPB FILE 

MASTER HPT FILE 



"MASTER"/"SOURCE 
"M4STER"/"INF" 
"MA STER" /"SEC 
"MASTER"/"OAF" 
"MASTER"/"FP8" 
"MA STER "/"MPT" 



If specified in the RECOMPILE option* <MUL TIF ILE_IQ > will be used 
instead of the default id "MASTER". If also specified* the files 
will be expected to be found on user pack or cartridge <PACK_ID>. 
<PACK_ID> and <MULTIF ILE_ID> ffust be quoted character literafs. 



Note s : 
1. 



The RE CO MP ILE option must be on the first card in the 
compile deck (file "CARDS") and that card way contain 
ro other dollar options (except CREA TE_fASTE«3* see 
pre v ious sec t ion ) . 
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2. The patch deck may contain S-CARDs and &SET and ftRESET 
cards followed by pitch cards* If J-CAHOs are used* 
however* they wilt only apply to procedures being 
recompiled and may* therefore* cause unwanted effects. 

3. Neither SSEQ nor SMERGE may be used with SSECOMPILE. 
C. SIMULTANEOUS RECOMPILE ANO CREATE. MASTER 



New master inf orma t i on, may be saved from a reco up i la t i on run with 
yery little overhead. Both RECOMPILE and CREATE_M ASTER options 
(See above.) must be on the first card of the compile deck. All 
restrictions noted in A and 3 should be observed. 



D. GENERAL CONS IDE3 A T IONS 



All input and output files must be en 
not apply to the SOURCE file 



disk. (This does 
for a stra i gh t 
CR£ATE_MASTER which is read in tne normal way as the 
result of a SrtERGE card. It does apply to SOURCE when 

doing RECOMPILE.) 

File equation cards for recoup i I a t i on files will be 
iqnored unless no <PACK_ID> or <MULTIF ILE_ID> has been 
specified on the 
S-CARO. 



During recompi la t ion 
listed is that wh ich 



the only source which can 
is actually being recompiled. 



be 



$-CARDs for timing* monitoring* and PROFILE may be 
added during recomp i la t i on. They will only affect 

those procedures being recottpi I ed* however* even if 
they are at the beginning of the patch deck. 

A CRE ATE_MASTER compilation reporting syntax errors 
which are strictly local to lexic level zero procedures 
will produce usable master files- These may then be 
used to recompile the offending procedures. Since the 
CRE ATE_MASTER produced no object file* however* some of 
the $-Card information wilt be missing for the 
recompi tat i on—spec i f ical I y stack size cards. These 

must be included in the recompile deck. 

SXMAP is incompatible with partial recoup i lat i on and 
may not be specified if CREA TE_MA STER or RECOMPILE have 

been invoked. 



E. EXAMPLES 
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1. CREATE_MASTER compilation 

?COMPILE MY PROG WITH SDL TO LIBRARY 

?FIL£ SOURCE NAME MYPRO G/OLD SOURCE TAPE? 

?DATA CAROS 

SCREATE FASTER w HYPRQG n 

SMERGE SEQ LIST 

CPatch Cards] 

?END 

?DUMP TO MYTAPE/tlECOMP MYPROG/^; 
2- Partial recompilation (from user pack) 

?LOAO TO MYPACK FROK M YTAPE /RECOHP NrPROG/=; 

?COMPILE MYNEKPRQG WITH SDL TO LIBRARY 
?DATA CAi^DS 

SRECUMPILE "HYPACK'VHYPRCG" 

SLIST 

tFatch Cards! 

?END 



3. Simultaneous operations 

?LOAD FROM M Y T APE/RECOMP HYPRQG/=; 

?CQHPILE HYNEWPROG WITH SOL TO LIBRARY 
?QATA CARDS 

SRECOtfPILE "MYPROG" CREAT£_H ASTER -MYPROG' 
CPatch Cards] 

?£N9 



?OU«MP TO MYNEWTAPE/RECOMP M YNE WPRQG/=; 
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A£P&ljJ2IX VIJI: SDL HONITORJNG FACILITY 



Procedure entry and exit can be dynamically ffonitored 
features that are available through the SDL compiler. Use of 
monitoring feature proceeds in two steps. First* at compila 
time* the user specifies via control cards that var 
procedures are to be "candidates for moni tor i ng w in subseq 
executions of the program. Then at execution time the 

specifies via a PUN-TIME MONITOR STATEMENT that soice subse 
the candidate procedures are to be monitored for this run. 
RUN-TIME MONITOR STATEMENT can be input through the SPQ, or 
some user file* at program BOJ or during the execution of 
program via execution of built-in functions. 



v i a 

the 
t ion 

ious 
uen t 
user 
t of 

The 
from 

the 



UUItUl £Q£i3iIJ§ 



Assume a procedure named PROC is being monitored and that it has 
two parameters X and Y. An invocation of PROC would produce the 
following monitor information? 



k blanks — Ck)PRQC cccccccc-->>dddddddd 

k*l blank s Y= the value of i at the point of invo- 
cation as an SOL literal 

k+1 blanks -X= the value of X at the point of invo- 
cation as an SOL literal 



Here k describes the nesting level of the call* cccccccc is the 
sequence number of the invocation point* and dddddddd is the 

sequence number of the procedure head of PROC. 

When PROC is exited* the following line is emitted: 
k blanks C k 3 exit PROC at eeeeeeee 

If PROC is a function* the following line will also be emitted: 

k *1 blanks — -PR0C= the value of PtfGC specified as an 

SOL literal 



The output data may be directed to any file. This is done by 
associating the file attribute MONI TCJR_aUTPUT_F ILE with some file 
in the program. The following restrictions held. 
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1. The feature is not dynamic- (It cannot be changed with 
a CHANGE statement). 

2. The length of a record in the output file should be 
more than 71 characters. 

3. If several files are given the MQNIT0R_OUTPUT_FILE 
attribute* the last file so declared becomes the 
monitor output file. 

A. If any procedures are declared to be candidates for 

monitor then a monitor output file should be declared. 

If it is not* the compiler will append a file to the 

program for this purpose. 

5. The file must be sequential with fixed length records. 

6. The user should never issue an explicit open on the 
file. 

If the value of a parameter or a procedure is being written ano 
current output record is insufficient in length* the literal will 
be continued to the next record for as irany records as is 
necessary. Indentation is not peformed on subseauent lines. 
Indentation of the first line ceases within 60 spaces of the end 
of the monitor output record. Values of length zero are noted 
appropriately regardless of type. If a character value contains 
unprintable data* the value wilt be printed as three asterisks 
followed by a hex representation of the data. Only the first 30 
characters of any procedure name and the first 10 characters of 
any for§al name are used. 



HSlillJCEIIiG: SPECIFYING PROCEDURE^ 



The user specifies that procedures are candidates for monitoring 
with the dollar card options MONITOR and M0NIT0R_OFF. The 
qualifier NO is meaningful in front of both words. The 
discussion of M0NIT0R_0FF will be deferred to a later section. 
However* for the purposes of qualification* the two options are 
semantically equivalent. Specifically* if MONITOR is ON when the 
procedure name first appears teither in its fcr*»ard or its head)* 
then the procedure becomes a candidate for monitoring. Note that 
the MONITOR option relates to procedures and not to procedure 
invocations. There is no way to specify the concept that a 
procedure is a candidate for monitoring but that seme particular 
invocation of that procedure is not to be monitored. Also note 
that it is the state of the option when the FQRHARD Cif present) 
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is encountered that is important. 

The concept of a RUN-TIME MONITORING statement was previously 
introduced. This statement will be read into the program at 8QJ 
from any file that the user specifies. This is done by giving 
the attrioute MON 1 IOR_INPUT_F ILE to some file declared in the 
program. The following restrictions hold: 

Rest r ict ions: 

1. 1*2*3#5> and 6 under M0NIT0R_0UTPUT_F ILE RESTRICTIONS. 

2. If no file is declared with the attributes 
N0NITOR_INPUT_ FILE and procedures are declared to be 
candidates for monitoring then the program issues 
accepts at the beginning of job to obtain the necessary 
information from the SPO. 

3. If a file is declared to be the HONI TCR_INPUT_F ILE then 
the monitoring information must be the first recordCs) 
of the file. 



RUN-JINE jjQNJLIOR SIAIE^ENT 

The RUN-TIME MONITOR statement consists of a run-time monitor 
expression that is terminated by a semicolon. Formal 

specification of the RUN-TIME MONITOR expression syntax is 
deferred to a later section. The following examples will 

Chopefully) illustrate the salient features of the statement. 
Here please read "all procedures** as "all procedures which are 
candidates for monitoring". 

EXAHPLE MEANING 



i. $ALL; Monitor all procedures 

2. SNQNE? Monitor no procedures 

3. Xi; Monitor all procedures whose name is 

XI. 



BURROUGHS CORPORATION 
COMPUTER SYSTEMS GROUP 
SANTA BA38ARA PLANT 



18"4 

COMPANY CONFIDENTIAL 

318CQ/B1700 SOL (8NF Version) (F) 

P.S. 2212 5405 



* * * 






** * 


* 


XI 


X2; 




ft 


ft 








ft 


* 


XI, 


>X2? 




ft 


* 








ft 


* 


XI 


OR 


X2; 


ft 


* 








ft 



* XI ♦ X2? * 
ft* * ** * 



(Alt four statements are equivalent) 

Monitor all procedures named XI or 
or X2. 



* * * * ** 

* NOT xi; * 

ft ft 

* -xi; * 

* * * * * * 



(Both statements are equivalent)* 
Monitor all procedures whose name is 
not XI. 



6. 00000000-01999999; 



7 9 * ** *** 

* OO0O0C0O-01999999 * 

* * 

* AND NOT SCAN? * 

* * 

* 00000000-01 999999 * 

* * 

* * - SCAN * 

* * 

* ** * ** 



Monitor all procedures whose forwards 
or procedure heads occurred on or be- 
tween the two sequence numbers. 



Same as (6.) above except that proce- 
dures name SCAN are not to be moni- 
tored. 



3. * ** * ** 

* 00000000-01999999 * 

* * 

* ** 



* * scan; 

* * * 



Monitor all procedures named SCAN 
the range described. 



in 



*** * ** 

* 01426000-01579000 * 

* or * 

* 027 46 300-99 99 9999 * 

* or * 

* scan; * 

* * * * * * 



Monitor alt procedures in the two 

ranges specified plus any procedure 

n a « e d SCAN which is out of these 
ranges. 
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MCNIICRJN£: PROJS£*MM ATI£ £QNTROL 



The $MQNITi)fi_0FF option and the three specials MQNITOR_SET * 
MONITOR RESET, and MONITOR CHANGE are added to SOL to allow 
program" control of monitoring. If the $M0NIT0R_0FF option was 

ever on* the program will not require a RUN-TIME MONITOR 
stateirent at HOJ and will behave as if the RUN-TIME MONITQH 
statement "$NGNE; w had been read. 

Each of the three specials is an unvalued procedure with one 
argument* a RUN-TLME MONITOR statement expressed as an expression 
which generates a character string* e.g.* M0NIT0R_SET 
("XI *XZ7 n );. M0NIT0R_RESET causes monitoring to be discontinued 
for all procedures satisfying its argument. If a procedure is 
not currently being monitored but still satisfies MCM T0R_RE5ET • s 
argument* it wilt continue not to be monitored. 

M0NITCR_3ET causes monitoring to be coairenced on all procedures 
satisfying its argument. If a procedure is satisfied by 

MQNI T0R_5ET «s argument and is currently being tronitored* it 
continues to be monitored. If a procedure is currently being 

monitored and does not satisfy M0N IT0R_.SE T • s argument* it 

continues to be monitored. 



After the execution of a M0N IT0R_CHANGE only 
referenced by its argument will be monitored. 



those procedures 




SXtilAX OF A RUJilllME MQNIIQRIN£ £TAJEMEN1 



<STATEMENT> : := <£XPRESS 10N> * 

is all; 

isnone; 

<EXPHESSIQM> ::= <TERM> 

KTERM> <0R> <EXPRE5SI0N> 
<TERJi> ::= <FACT0R> 
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KFACT0R> <ANO> <TERM> 
<FACT0R> ::= <PRIME> 

t<NOT> <PRI.iE> 
<PRINE> : := C <£XPRESSIUN> ) 
I <RANGE> 
I <LI5T> 
<RANGE> ::= <8 DIGIT SEQ #>-<8 DIGIT SEQ #> 
<LIST : := <SQL_IDENTIFIER> 

I <5DL_ IDENTIFIERS <LI5T> 
I <SCL_IDENTIFIER> <LIST> 
<QR> ::= OR 
! + 
<AND>:s=*N0 

I* 
<NOT> ::= 1N0T 
I- 



7 

8 
9 

10 
11 

12 
13 

14 
15 
16 
17 
18 
19 
20 
21 
22 



N2I£i 



The <8 DIGIT SEQ »> s referred to in line 13 must 
be such that the first is less than or equal to 
the second. 

The <SDL_lDENTIFIER>s referred to in C1A-16) are 
names of procedures in the program. Only the 
first 30 characters are used. 
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THE iJONlJOR FILE 



When monitoring a program* the monitoring intrinsics reference a 
randoit access file associated with the compilation of the 
program- The name of the code file and the name of its monitor 
file are given below: 



CODE FILE 



MONITOR FILE 



A 

A/8 

A/J/C 



SSA 

A/$$8 

A/B/SSC 
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IHQEX 



ACCEPT 
ACCESS 

AODRES 
ADORES 
AODRES 
ACDRES 
ADORES 
AOVISC 
ALL_AR 

AMPERS 
APPEND 

APPEND 

APPENC 

APPEND 

APPENC 

APPEND 

APPEND 

APPENC 

AREA.3 

ARITHM 

ARRAY 

ARRAY 

ASSIGN 

ASSIGN 

ASSIGN 



STATE* 
_FILE_I 



ENT 9-12 

NFORMATION 



10- 37 



S 
S 
S 
S 
S 
RY 



ANO V 
GENErt 
GENEft 
MOOIF 
VARIA 
12 



ALUE PARAMETERS 
ATING FUNCTIONS 
8-13 

8-12 
8-5 



8-15 
8-8 



EAS. 

ANO 



.AT_ 
OPT 



A TORS 

IER 

BLES 

-5 

OPEN 
ION 



5-28, 
12-3 



10-19 



IX 

IX 

IX 
IX 
IX 
IX 
IX 
IX 
Y 



I: 
II: 
III: 
IV : 
V: 

VI : 
VII: 
VIII 
C YL I N 



ETIC OP 

5-2 
STRUCTU 
ME TUT ST 
HE NT ST 
OR 8- 



RESERVEO AND SPECIAL WORDS ll-l 

SOL CONTROL CARD OPTIONS 12-1 
PROGRAMMING OPTIMIZATION 13-1 

RUNNING THE COMPILER U-l 
CONDITIONAL COMPILATION 15-1 
SDL PROGRAMMING TECHNIQUES 16-1 

SOL PARTIAL RECOMPIL AT ION FACILITY 
: SDL MONITORING FACILITY 18-1 

CER 5-28, 10-19 
ERATORS 7-5 



17-1 



RE 5-13 

aTErfENT 7-8 

ATEMENTS ANO EXPRESSIONS 

4 



7-1 



BACKUS NAUR FORM 1-1 

BASE REGISTER 8-17 
BASIC COMPONENTS OF THE SDL 
BINARY CONVERSION 8-18 
8lNAftY SEARCH 8-18 
BIT STRINGS 2-3 

BUFFERS 5-2A, 10-22 
8UMP 8-2# 10-12 



LANGUAGE 



2-1 



CALLING ABILITY 3-5 
CASE EXPRESSION 8-2 
CASE STATEMENT 10-7 

CHANGE STATEMENT (FILE 
CHANGE_STACK_SIZ£5 10 
CHAR TABLE 2-5 

CHARACTER STRINGS 2-4 

CHARACTERS ILL 10-38 

CHECK GPtToN 12-3 

CLEAR STATEMENT 10-12 

CLOSE STATEMENT 9-4 
CODE OPTIOM 12-3 



ATTRIBUTE STATEMENT) 
-37 



10-14 
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COMMENTS 2-2 
COMMUNICATE 10-38 
COMMUNICATE.WITH_.GI SMO 8-19 
COMPILE CARD INFO 10-38 
CONCATENATION 7-11 
CONDITIONAL COMPILATION 15-1 
CONDITIONAL EXPRESSION 8-1 
CONSOLE SWITCHES 8-19 
CONTROL OPTION 12-3 
CONTRGL.STACK.BITS 8-19 

CONTROL STACK TOP 8-19 
CONVERT 8-20 
CONVERTOOTS OPTION 12"3 
COROUTINE STATEMENT 10-33 
CSSIZE OPTION 12-3 



DATA STRUCTUR 
DATA TYPES 
DATA AOORESS 
DATAJ.ENGTH 
DATA TYPE 8 
DATE 8-22 

DC_INITIAT£_I 
DE3LANK 10- 

DE8UG OPTION 
DECIMAL CONVE 
DECLARATION S 
DECLARATIONS 
DECLARE STATE 
DECREMENT 8 
DEFINE INVOCA 
DEFINE STATEH 
OELIMITED_TGK 
DESCRIPTORS 
DETAIL OPTION 
DEVICE 5-22 
0ISA8LE.INTER 
DISK ALLOCATI 
DISK DRIVE AS 
DISK FILE 5 
DISPATCH 8- 
DISPLAY STATE 
DISPLAY_3ASE 
OG GROUPS 1 
DOUBLE OPTION 
DUMMY 5-13 
DUMP 10-4 

DUMP FOR ANAL 
DYNAMIC DECLA 
DYNAMIC FILE 
DYNAfUC_ME*Of< 
DYNAMICSIZE 



ING 5-3 
5-1 

8-22 
8-22 
-22 

10-39 

40 

12-3 
RSION 8-23 
TATEMENT 3"! 

5-1 
WENT 5-2 
-4, 10-12 
TION 5-38 
ENT 5-36 

EN 8-2 3 
8-10 
12-3 
* 10-17 
RUPTS 10-40 
ON 5-28 
SIGNMENT 5-28 
-26, 10-22 
24 
¥EHJ 9-13 

8-25 
0-2 

12-3 



YSIS 10-41 
RATIONS 5-16 
CHANGE 10-14 
Y BASE 8-25 
FTION 12-3 



ENA3LE INTERRUPTS 



10-41 
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END OF STRING 10-11 
END_GF_PAG£_ACTIQN 5-29* 13-19 
ENTER COROUTINE 10-33 
ERROR FILE OPTION 12-3 
ERROR_COMMUNICATE 10- A I 
ESSIZE OPTION 12-3 
£U ASSIGNMENT 5"28 
EVALUATION'S! ACK^TOP 8*25 
EXCEPTION MASK PART 5-31 
EXECUTABLE STATEMENT 3-1 
EXECUTABLE STATEMENTS 10-1 
EXECUTE 3-25* 10-42 
EXECUTE-FUNCTION STATEMENT 
EXECUTE-PROCECURE STATEMENT 
EXIT_CGRaUTINE 10-33 
EXPANC_DEFIN£S 12-3 

EXPRESSIONS 7-1 

EXTENDED ARITHMETIC FUNCTIONS 



10-36 
10-35 



8-27 



FETCH 10-42 

FETCH ANO SAVE 10-42 

FETChIcaMHUNICATE_*SG_PTa 3 "10 

FILE ATTRIBUTE STATEMENT (CHANGE 

FILE DECLARATIONS 5-20 

FILLER 5-12 

FIND_DUPLICAT£_CHARACTER5 10-42 

FINl" 3-1 

FORMAL. CHECK 5-41 

FORMAL_CH£CK 5-10, #• * » 6-5 

FGRMAL_VALU£ 6-4» 8"16 

FORMALCHECK OPTION 12-4 

FORWARD DECLARATION 5"40 

FREEZE 12-3 

FREEZE PROGRAM 10-43 



STATEMENT) 



10-14 



GROW 



10-4 3 



HALT 10-4 4 

HARDWARE MONITOR 13-1 

HARDWARE. MONITOR 10"44 

HA'SH_CaOE 3-27 

HEX_SEaUENCE_NUMBER 2-5 

I/O CONTROL STATEMENTS 9-1 

IDENTIFIER 5-37 

IDENTIFIERS 2-1 

IF STATEMENT 10-5 

INDEXED FIELD REFERENCES 5-6 

INDEXING 8-5 

INITIALIZE_VECTOR 10-44 
INTERPRETER OPTION 12-4 
INTERRGGATE_INTE^RJPT_STATUS 
INTRA-STRUCTURE REMAP 5-11 
INTRINSIC HEAD 6-5 



8-28 
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INTRINSIC OPTION 



12-4 



LABEL 5-21, 10-16 
LAST_LIU_STATUS 8"28 

LENGTH 8-28 
LEXICOGRAPHIC LEVEL 3-2 
LIMIT_REGISTER 8-28 
LIST OPTION 12-4 

LISTALL OPTION 12"4 

LOCATION 8-29 
LOCK 5-25* 10-19 
LOCKI 12-4 

LOGICAL OPERATORS 7-7 



M MEM SIZE 8-35 

MAKE DESCRIPTOR 8-11 

MAKE_READ_ONLY, M AKE_ft£4D_WRI T£ 10-32 

MERGE OPTION 12-4 

MESSAGE_COUNT 10-45 

MODE 5-24, 10-18 

MODIFY STATEMENTS (CLEAR, 3UMP, DECREMENT) 

MONITGH 10-45, 12"4 

MONITCR FILE 18-7 

MONITOR SPEC PART 5-31 

HGNITCR_CUTPUT„FILE RESTRICTIONS 18-1, 18-6 

MULT I PACK 5-28, 10-19 



10-12 



N4HE_0F_0AY 8-2 9 

NAME STACK_TQP 8-30 

NEST_PROCEDURE_TIM£S- 12-4 

NESTING 3-2 

NEST ING LEVEL 6-7 

NEW OPTION 12-4 

NEXT_ITEM, PREVIOUS_IT£M 

NEXT^TQKEN 8-30 

NO OPTION 12-4 

NO_DUPLICATES OPTION 12-4 

NO SOURCE OPTION 12-4 

NON-STRUCTURE DECLARATIONS 

NSSIZE OPTION 12-5 

NULL 8-12 

NULL STATEMENT 10-13 

NUM8ER_0F STATIONS 5-30 

NUMBERS 2-3 



a- 12 



5-8 



ON SEQUENCE 9-16 

OPEN OPTION 5-2 7 
OPEN STATEMENT 9-2 
OPERATOR PRECEDENCE TABLE 
OPTIONAL FILE PART 5-31 

OTHER CONSTANTS 2-5 
OVERLAY 10-45 



7-4 



P A CK ID 



5-27, 10-16 
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PAGE OPTION 12-5 

PA6E0 ARRAY DECLARATIONS 5" 15 

PARITY SPECIFICATION 10-18 



PARITY_AODRESS 


8-31 


PASS END OPTION 


12-5 


POLISH NOTATION 


7-2 


PPROFILE 13-1 




PPSSIZE OPTION 


12-5 


PREVIOUS ITEM 8 


i-12 


PRIMARY ELEMENTS 


OF THE EXPRESSION 


PROCEDURE 30DY 


6-6 


PROCEDURE ENDING 


6-8 


PROCEDURE HEAQ 


6-2 


PFOCECURE NESTING 3-4 


PROCEDURE STATEMENT 3-1 


PROCEDURES 6-1 





1-1 



PROCESSOR TIME 8-31 

PROFILE 13-1 

PROFILE, PPROFILE OPTION 12-5 

PROGRAM SEGMENTATION 4-1 

PROGRAM SWITCHES 8"3i 

PROGRAM TIMING 13-2 

PROGRAMMING OPTIMIZATION 13-1 



PROGRAMMING TECHNIQUES 



16-1 



READ STATEMENT 9-6 

READ CASSETTE 10-46 

read'file HEADER* WRITE_FILE_H£AOER 

READ_FP8, WRITE_FP8 10-46 

READ OVERLAY* WR I TE„0 VERL A Y 10-47 

RECOHPILATION FACILITY 17-1 

RECOMPILE_TIMES OPTION 12-5 

RECORD 5-4 

RECORD REFERENCE DECLARATIONS 5-19 

RECORD REFERENCE VARIABLES 5-19 

RECORD SIZE 5-25, 10-22 

RECORD STATEMENT 5-3 

REDUCE STATEMENT 10-9 

REEL NUM3EH 5-26, 10-22 

REFER ADDRESS 10-47 

REFER LENGTH 10*48 

REFER STATEMENT 10-3 

REFER TYPE 10-48 

REFERENCE DECLARATIONS 5-18 

REINSTATE 10-43 

RELATED PUBLICATIONS 1-2 

RELATIONAL OPERATORS 7-6 

REMAPPING 5-9, 5*13 

REMOTE KEY 5-29 

REPLACE OPERATORS 7-8 

REPLACE, DESTRUCTIVE 7-8 

RESERVED WORDS 11-1, 11-3 

RESTORE 10-49 

Restrict ions* 5-17 



10-30 
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RETURN STATEMENT 6-6 
RETURN_AN0_.ENA8L£_INTERRUPTS 

REVERSE STORE 10-49 



6-6 



S MEM SIZE* M^MEN SIZE 3" 35 

SAVE " 5-25* * 10-50 

SAVE STATE 10-50 

SCOPE 3-5 

SCOPE OF PROCEDURES 3-2 

SEARCHED! RECTORY 13-28 

SEARCH DIRECTORY STATEMENT 10-28 

SEARCHJ_INKED_LIST 8-32 

SEARCH SDL STACKS 8-3 3 

SEARCH~SERIAL_LIST 8-34 

SEEK STATEMENT 9-11 

SEGMENT* 5EGMENT_PAGE 4-1 

SEQ OPTION 12-5 

SEGUENCE_NUMBER 2-5 

SERIAL NUMBER PART 5"31 

SINGLE SPACE OPTION 12-5 

SIZE OPTION 12-5 

SKIP STATEMENT 9"15 

SORT 10-50- 

SORT_H£RGE 10 "5 I 

SORT SEARCH 3-35 

SORT_STEP_DOWN 8-35 

SORT SWAP 10-52 

SGRT_UN9L0CK 8-36 

SPACE STATEMENT 9-14 

SPQ_INPUT„PRESENT 8 "3 6 

STOP STATEMENT 10-26 

STRUCTURE DECLARATIONS 5-11 

STRUCTURE OF AN SDL PROGRAM 3-1 

STRUCTURED RECORO STATEMENT 5-6 

STRUCTURES 5-5 

SU83IT AND SU8STR 8-8* 8-37 

SUPPRESS. OPTION 12-5 

SWAP 8-38 

SWITCH FILE DECLARATIONS 5-34 

TH4*T PROGRAM 10-52 
THREAD-VECTOR 10-52 
TIME 8-39 

TIMER 8*3 9 
TIMING OPTION 12-5 
TODAYS DATE 2-5 

TRACE 10-53 

TRANSLATE 10-54 
TYPED PROCEDURES 8-15 



UNARY OPERATORS 7-5 
UNDERSCQ3ES_IN_FILE_NAMES OPTION 
U?<00 10-4 

USE INPUT BLOCKING 5-29, 13-19 



12-5 
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USE ST ATE HE NT 5 -4 3 
USEDOTS OPTION 12-5 



VALUE GENERATING FUNCTIONS 
VALUE VARIABLES 8-14 
VALUE.OESCHIPTOR 8-40 
VARIABLE OATA FIELDS 6-A 
VARIABLE RECORD 5"24> 10-19 
VOID OPTION 12-5 
VSSIZE OPTION 12-6 



8-16 



WAIT 


fi-40 




WORK 1 


"ILE 5-30 




W0RKING_SEr_3YTES 


OPTION 


WRITE 


STATEMENT 


9-8 


WRITE. 


_FILE_HE40ER 


10-30 


WRITE. 


.OVERLAY 10 


- 47 


X ADD 


3-2T 




X.DIV 


8 .-2 7 




X_MO D 


3-2 7 




X HUL 


8-2 7 




x_sue 


8-2 7 




XMAP I 


OPTION 12-6 




XREF 


12-6 




XREF I 


ONLY' 12-6 





12-6 



ZIP STATEMENT 



10-Z7 
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TIMER 



<TIMER D£SIGNATCR>: : = 



TIMER 



A value of tyoe 9ITC24) is returned. The value 
current setting of the TIME register. 



is the 



DATA LENGTH 

<DATA_LENGTH C£S I GN ATCR> : ; = QATA_LENGTH C <EXPRESS ION> ) 

Returns the length in bits of <EXPRESS ION>#» regardless of 
the data type. 



DATA TYPE 

<CATA_TYPE 0ESIGNAT0R>: := D*TA_TYPE (< EXPRESS ION > ) 

Returns the type bits cf <EXPRES SI C N>. 



10-47 REFER ADDRESS 



<R£FER ADDRESS 
0ESIGNAT0R>::= 



REFER ADDRESS (<HEF VAR>, 
<EXRESSION>) 



The value of <EXPRESSIQN> is stored ir the address of <REF 
VAR>. '■" 



10-48 REFER LENGTH 



<REFEP_LENGTH_ 
DESIGNATOR> :: = 



REFER LENGTH (<REFER VAR>> 
<EXPRESSICN>) 



The value of <EXPRESSIQN> is stored in the length of <REF 
VAR>. 

REFER TYPE 



<REFER_TYPE_ 
DESIGNATOR>::= 



REFER TYPE (<REF VAR>* <EXPPESSION> 



The value of <EXPRESSIGN> is stored in the type part of 
<REF VAR>. 
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5-6 STRUCTURED RECORD STATEMENT 

<STRUCTUR£D RECORC STATEMENT : : = 

RECORD Ql <RECORO ICENTIFI£R> <TYPE> 
<STRUCTURE ELEMENTS> 

<R£CORD IDENTIFIER> ::= <ICEN7IFIER> 

<STRUCTUR£ ELEMENTS> ::= 

><LEVEL NUH8ER> <STRUCTURE ELEMENT> 
I t STRUCTURE ELEKENTS> 
<STRUCTURE ELE,1ENT> : : = 

<FI£LD NAHE> <7YPE> 
I <FIELD KAME> <ARRAY BOL'hC> <TYPE> 
I FILLER <TYP£> 
I <FIELD NAME> REMAPS <REMFS OEJ£CT> <TYP 

Structured Records have been iir-ql eiren ted to allcw easier 
conversion of the current PL/I-style structures to 

records. 

Structured Records have the same capabilities as RECORDS. 
Fields declared as an array iray not have nested structure. 

BINARY SEARCH 



<BINARY SEARCH FUNCTI0N>::= 



<START_RECORD>: := 
<CUMPARE FIELC>::= 
<COMPARE - VALUE>::= 

<NUMBER OF REC0RDS> 



8INARY.SEARCH 

(<START REC0RD>» <C0MPARE FIELD>> 

<CCMPAPE„VALUE>* <NUMfciER_GF_RECQRDS> ) 

<EXPRESSION> 
<TEHPLATE> 
<EXPRESSIUN> 
<ADDRESS GENERATORS 



8INARY_SEARCH searches an ordered list of items that start 
at <ST"ART_RECORD> for <NUMB£R_OF_RECORDS > for a match. 

The occurrence number of the entry that (Hatches will be 
returned* or if there is no match* the occurrerce nurcber 
of the first entry that is greater will be returned. 



8-13 NOTE: The comparison is always left justified and uses 
the length of <C0tfPARE VALUE>. 



